Force printing on letter sized paper

[Rudy B]

I have a report that determines which header/footer to
display based on which page it's on. For example, page 1
shows the group header + the page footer, subsequent pages
display the page header plus a reformatted version of the
page footer. My problem is that Access gives me an error
stating that the sum of the margins, page header and page
footer are greater than the page I am trying to print on.
I have verified that my report never exceeds the size of
the paper I am printing on but Access is performing this
check before the reformatting changes are made at run
time. How can I override this and force printing on
letter sized paper?

Rudy B.

 

[Rick Brandt]

I have a report that determines which header/footer to
display based on which page it's on. For example, page 1
shows the group header + the page footer, subsequent pages
display the page header plus a reformatted version of the
page footer. My problem is that Access gives me an error
stating that the sum of the margins, page header and page
footer are greater than the page I am trying to print on.
I have verified that my report never exceeds the size of
the paper I am printing on but Access is performing this
check before the reformatting changes are made at run
time. How can I override this and force printing on
letter sized paper?

Whether the "stuff that prints" Will fit is not relevant. The total size
of the *sections* is what Access cares about. Do you have report sections
that extend to the right past the right-most printable object? Do any of
the sections extend down past the lowest printable object?

 

[Rudy B.]

I think I have a solution. I have resized the section and
stacked some of my controls on top of each other so that
the sum of the sections and margins do not exceed the
length of a letter sized page. Then at runtime, I resize
the section and move the appropriate controls (based on
assigned tag value). Sample code attached for others
experiencing similar issue:

'reformat page header
Me.Section(3).Height = 4.625 * TPI
If Me.Line288.Top = 0 Then 'check to see if one of the
controls is at top
For Each ctl In Me.Section(3).Controls
Select Case ctl.Tag
Case "Move"
ctl.Top = ctl.Top + 1.9583 * TPI
End Select
Next ctl
End If