Pagefooters in Reports

[bterri]

I put the following code in my report to subtotal each page.

Dim x As Double

PageFooter Print

pagesum = runsum - x
x = runsum

ReportHeader Print
x = 0

The subtotals are printed at the bottom of each page which is great but on the last page where I added the grand total to the report footer the page footer subtotal prints under the grand total.

How do I tell Access on the last page of my report to put the page footer above the report footer? It will move every month based on the number of pages and records.

Any ideas?

 

[WP]

The trick is to suppress the page footer when it is the last page and include the page footer field in the report footer.

To check for the last page you can use the system fields Page and Pages. Thus in the page footer print event :


If Page = Pages Then
txtThePageSum.Visible=False
Else
txtThePageSum.Visible=True
EndIf


Bill Paton
william.paton@ubsw.com

http://www.neptune400.co.uk/

Check out my website !

 

[bterri]

This works to move the pagefooter where I want it but it still prints the footer at the bottom of the last page. The field is a calculated field, would that make a difference.

 

[WP]

What code do you have in the Page Footer Print Event ? Bill Paton
william.paton@ubsw.com

http://www.neptune400.co.uk/

Check out my website !

 

[bterri]

I have:

If Page = Pages Then
subtot.Visible=False
Else
subtot.Visible=True
EndIf
End Sub