Formatting Question - Trapped by Margins

  • Thread starter Thread starter David Habercom
  • Start date Start date
D

David Habercom

My report contains 4 subreports in the detail section.
Each subreport prints different information about the
account (which appears in the main report header) and
requires its own query.

If a subreport has no information to report, it does not
appear and the subreports below it move up the page.
(Each subreport abuts the one above it, and everything is
set with CanShrink = Yes.) On the other hand, any
subreport can print a very short list or a very long list
of items.

Here is the problem:

Page 1 of the main report is a cover letter with the
return address printed in a very small font in a single
line across the bottom. In Page Setup I set the bottom
margin to zero, and the line prints about 1/4" up from the
bottom. However, on Page 2+, I want the subreports to
print no lower than about 1.5". And coincidentally the
last page has a footnote, also at the very bottom.

Is there any way to change margins on the fly in VBA?
This would seem the simplest approach.

Failing that, is there a clever solution I simply can't
see? I'm starting to get tunnel vision on this...

Thanks.
 
David said:
My report contains 4 subreports in the detail section.
Each subreport prints different information about the
account (which appears in the main report header) and
requires its own query.

If a subreport has no information to report, it does not
appear and the subreports below it move up the page.
(Each subreport abuts the one above it, and everything is
set with CanShrink = Yes.) On the other hand, any
subreport can print a very short list or a very long list
of items.

Here is the problem:

Page 1 of the main report is a cover letter with the
return address printed in a very small font in a single
line across the bottom. In Page Setup I set the bottom
margin to zero, and the line prints about 1/4" up from the
bottom. However, on Page 2+, I want the subreports to
print no lower than about 1.5". And coincidentally the
last page has a footnote, also at the very bottom.

Is there any way to change margins on the fly in VBA?
This would seem the simplest approach.

Failing that, is there a clever solution I simply can't
see? I'm starting to get tunnel vision on this...
Click to expand...


AFAIK, the margins and the size of th epage footer section
can not be changed at run time.

Can you live with setting the page footer height to ~1.5"?
If you can, then add all the stuff you want on all the pages
and make the controls visible as needed for the first,
middle and last pages.
 
Back
Top