Page Footer on Last Page Only - Without Large Blank Space on Other Pages

[EddieN1]

I have a report of numerous multi-page purchase orders. On the last page of each PO, I have a fairly large (3 inches) disclaimer. It needs to appear at the bottom of the last page so it needs to be a "Page Footer" as opposed to a "Group Footer" which floats up or down the page depending on how many details are printed on that last page. I can make the Page Footer invisible on all but the last page, however, that technique leaves a large gap at the bottom of all the other pages. Is there a way I can print the disclaimer at the end of the PO (last page) near the bottom without having a large gap at the bottom of the other pages. Putting it in a Group Footer would be fine if I could ensure it ends up at the bottom of the last page.

Thanks, Eddie

[Bulzie]

Sounds like you should use a Report Footer, not Page Footer.

[EddieN1]

The problem with using a Report Footer is that the disclaimer appears at the end of every PO... not at the end of the Report. There are multiple POs printed every time the report is run.

[aytee111]

Can you change the height of the Page Footer when you make it invisible?

[Bulzie]

aytee111 that is good idea. I did a test with it and it works changing both the field height and also the PageFooterSection height. I did this in the Page Footer Section based on the page number just to test with but Eddie you need to do it in your process whenever you make it visible or hidden. (1440 is 1 inch for the height value) BTW how are you determining the last page of each group to do the visible or hidden?

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
If Me.Page = 1 Then

Me.Label30.Caption = "BBB"
Me.Label30.Height = 300
Me.PageFooterSection.Height = 300

Else

If Me.Page = 2 Then

Me.Label30.Caption = "CCC"
Me.Label30.Height = 700
Me.PageFooterSection.Height = 700

Else

If Me.Page = 3 Then

Me.Label30.Caption = "DDD"
Me.Label30.Height = 300
Me.PageFooterSection.Height = 300

End If

End If

End If

End Sub