Report - Don't print the page footer on the last page

[Dwade]

When I print a report I don't want the page footer to print at the end of the
report
I only want the report footer to print

The page header must print on each page.

The report is for a donation report. Grouped off donation Id, can have any
number of items on each report 1 to xxx,xxx,x though the maxiumum so far is
25 items. which rolls the report to 2 pages.

The report footer contains a signature block and also the same line as the
page footer.
Page footer (="Print Date: "&Now() ="page" & [Page]&" of "&[Pages]

 

[Marshall Barton]

When I print a report I don't want the page footer to print at the end of the
report
I only want the report footer to print

The page header must print on each page.

The report is for a donation report. Grouped off donation Id, can have any
number of items on each report 1 to xxx,xxx,x though the maxiumum so far is
25 items. which rolls the report to 2 pages.

The report footer contains a signature block and also the same line as the
page footer.
Page footer (="Print Date: "&Now() ="page" & [Page]&" of "&[Pages]

To reclaim the space used by the page footer, you need to
make it invisible no later than the page header section's
Format or Print event:

Me.Section(4).Visible = (Me.Page < Me.Pages)

BUT, if things line up just the wrong way where the details
an report footer will fit on the last page if there is no
footer and not fit if there is a footer, you can get strange
things like Page 2 of 3 or Page 3 of 2 on the last page or
the footer all by itself on the last page.

If you do not care about reclaming the page footer space,
then just use a line of code in the page footer's Format or
Print event:
Cancel = (Me.Page = Me.Pages)

 

[Dwade]

I want the report footer to print without printing the page footer on the
final page. Any other page prior the footer can and should print. I just want
to suppress the page footer on the final page.

The report footer contains signature block.

When I print a report I don't want the page footer to print at the end of the
report
I only want the report footer to print

The page header must print on each page.

The report is for a donation report. Grouped off donation Id, can have any
number of items on each report 1 to xxx,xxx,x though the maxiumum so far is
25 items. which rolls the report to 2 pages.

The report footer contains a signature block and also the same line as the
page footer.
Page footer (="Print Date: "&Now() ="page" & [Page]&" of "&[Pages]

To reclaim the space used by the page footer, you need to
make it invisible no later than the page header section's
Format or Print event:

Me.Section(4).Visible = (Me.Page < Me.Pages)

BUT, if things line up just the wrong way where the details
an report footer will fit on the last page if there is no
footer and not fit if there is a footer, you can get strange
things like Page 2 of 3 or Page 3 of 2 on the last page or
the footer all by itself on the last page.

If you do not care about reclaming the page footer space,
then just use a line of code in the page footer's Format or
Print event:
Cancel = (Me.Page = Me.Pages)

 

[Marshall Barton]

Right. Did you try my last suggestion?
--
Marsh
MVP [MS Access]

I want the report footer to print without printing the page footer on the
final page. Any other page prior the footer can and should print. I just want
to suppress the page footer on the final page.

The report footer contains signature block.

When I print a report I don't want the page footer to print at the end of the
report
I only want the report footer to print

The page header must print on each page.

The report is for a donation report. Grouped off donation Id, can have any
number of items on each report 1 to xxx,xxx,x though the maxiumum so far is
25 items. which rolls the report to 2 pages.

The report footer contains a signature block and also the same line as the
page footer.
Page footer (="Print Date: "&Now() ="page" & [Page]&" of "&[Pages]

To reclaim the space used by the page footer, you need to
make it invisible no later than the page header section's
Format or Print event:

Me.Section(4).Visible = (Me.Page < Me.Pages)

BUT, if things line up just the wrong way where the details
an report footer will fit on the last page if there is no
footer and not fit if there is a footer, you can get strange
things like Page 2 of 3 or Page 3 of 2 on the last page or
the footer all by itself on the last page.

If you do not care about reclaming the page footer space,
then just use a line of code in the page footer's Format or
Print event:
Cancel = (Me.Page = Me.Pages)

 

[Dwade]

Cancel = (Me.Page = Me.Pages) worked fine

the other one

Me.Section(4).Visible = (Me.Page < Me.Pages)

for some reason won't work (probably a typo or something simple on my part)

Right. Did you try my last suggestion?
--
Marsh
MVP [MS Access]

I want the report footer to print without printing the page footer on the
final page. Any other page prior the footer can and should print. I just want
to suppress the page footer on the final page.

The report footer contains signature block.

Dwade wrote:

When I print a report I don't want the page footer to print at the end of the
report
I only want the report footer to print

The page header must print on each page.

The report is for a donation report. Grouped off donation Id, can have any
number of items on each report 1 to xxx,xxx,x though the maxiumum so far is
25 items. which rolls the report to 2 pages.

The report footer contains a signature block and also the same line as the
page footer.
Page footer (="Print Date: "&Now() ="page" & [Page]&" of "&[Pages]


To reclaim the space used by the page footer, you need to
make it invisible no later than the page header section's
Format or Print event:

Me.Section(4).Visible = (Me.Page < Me.Pages)

BUT, if things line up just the wrong way where the details
an report footer will fit on the last page if there is no
footer and not fit if there is a footer, you can get strange
things like Page 2 of 3 or Page 3 of 2 on the last page or
the footer all by itself on the last page.

If you do not care about reclaming the page footer space,
then just use a line of code in the page footer's Format or
Print event:
Cancel = (Me.Page = Me.Pages)

.

 

[fredg]

When I print a report I don't want the page footer to print at the end of the
report
I only want the report footer to print

The page header must print on each page.

The report is for a donation report. Grouped off donation Id, can have any
number of items on each report 1 to xxx,xxx,x though the maxiumum so far is
25 items. which rolls the report to 2 pages.

The report footer contains a signature block and also the same line as the
page footer.
Page footer (="Print Date: "&Now() ="page" & [Page]&" of "&[Pages]

Set the Report's Page Footer property to
Not with Rpt Ftr
You'll find it on the Report property sheet's Format tab.

 

[Marshall Barton]

When I print a report I don't want the page footer to print at the end of the
report
I only want the report footer to print

The page header must print on each page.

The report is for a donation report. Grouped off donation Id, can have any
number of items on each report 1 to xxx,xxx,x though the maxiumum so far is
25 items. which rolls the report to 2 pages.

The report footer contains a signature block and also the same line as the
page footer.
Page footer (="Print Date: "&Now() ="page" & [Page]&" of "&[Pages]

Set the Report's Page Footer property to
Not with Rpt Ftr
You'll find it on the Report property sheet's Format tab.

That's an odd place for them to hide a property that
simplifies what used to be a nasty problem ;-)

 

[Dwade]

........ "You'll find it on the Report property sheet's Format tab."

Where do I find that? I can't find where to set the page footer propery. I
can go to the property sheet for the page footer but is not there. ??? I'm
confused.

When I print a report I don't want the page footer to print at the end of the
report
I only want the report footer to print

The page header must print on each page.

The report is for a donation report. Grouped off donation Id, can have any
number of items on each report 1 to xxx,xxx,x though the maxiumum so far is
25 items. which rolls the report to 2 pages.

The report footer contains a signature block and also the same line as the
page footer.
Page footer (="Print Date: "&Now() ="page" & [Page]&" of "&[Pages]

Set the Report's Page Footer property to
Not with Rpt Ftr
You'll find it on the Report property sheet's Format tab.
--
Fred
Please respond only to this newsgroup.
I do not reply to personal e-mail
.

 

[John Spencer]

It's in the REPORT's properties, not in the footer's properties.

John Spencer
Access MVP 2002-2005, 2007-2010
The Hilltop Institute
University of Maryland Baltimore County

....... "You'll find it on the Report property sheet's Format tab."

Where do I find that? I can't find where to set the page footer propery. I
can go to the property sheet for the page footer but is not there. ??? I'm
confused.

When I print a report I don't want the page footer to print at the end of the
report
I only want the report footer to print

The page header must print on each page.

The report is for a donation report. Grouped off donation Id, can have any
number of items on each report 1 to xxx,xxx,x though the maxiumum so far is
25 items. which rolls the report to 2 pages.

The report footer contains a signature block and also the same line as the
page footer.
Page footer (="Print Date: "&Now() ="page" & [Page]&" of "&[Pages]

Set the Report's Page Footer property to
Not with Rpt Ftr
You'll find it on the Report property sheet's Format tab.
--
Fred
Please respond only to this newsgroup.
I do not reply to personal e-mail
.

 

[Dwade]

Duhhhh!!!.

Thanks to all the help I did find several ways to get the job done. Report
Footer unfortunately doesn't print at the bottom of the page.

Page footer worked but I didn't want all the information to appear on every
page.

I placed the objects (information and signature blocks) that I needed to
appear only on the last page in the page footer and set visible property to
NO. I then set the event procedure

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As
Integer)


If [Page] = [Pages] Then
[SignatureBox].Visible = True
[AccepteeSign].Visible = True
[SignDateBox].Visible = True
[SignDate].Visible = True
'enter all the invisible items that you want to turn visible
[InfoBox].Visible = True
[InfoLabelBox1].Visible = True
[InfoLabelBox2].Visible = True

End If

End Sub

While this did add some white space to the page footer, approx 1.5" it was
preferable to having the report footer printing one line under the detail
section.

I find that not being able to specify where on a page I want a section to
start printing (or end) is a bit of a headache. It definietly isn't straight
forward and easy.

Using an Event Procedure to make objects/fields visible in the page footer
did work.

It's in the REPORT's properties, not in the footer's properties.

John Spencer
Access MVP 2002-2005, 2007-2010
The Hilltop Institute
University of Maryland Baltimore County

....... "You'll find it on the Report property sheet's Format tab."

Where do I find that? I can't find where to set the page footer propery. I
can go to the property sheet for the page footer but is not there. ??? I'm
confused.

On Wed, 19 May 2010 10:36:01 -0700, Dwade wrote:

When I print a report I don't want the page footer to print at the end of the
report
I only want the report footer to print

The page header must print on each page.

The report is for a donation report. Grouped off donation Id, can have any
number of items on each report 1 to xxx,xxx,x though the maxiumum so far is
25 items. which rolls the report to 2 pages.

The report footer contains a signature block and also the same line as the
page footer.
Page footer (="Print Date: "&Now() ="page" & [Page]&" of "&[Pages]
Set the Report's Page Footer property to
Not with Rpt Ftr
You'll find it on the Report property sheet's Format tab.
--
Fred
Please respond only to this newsgroup.
I do not reply to personal e-mail
.

.