Print To Report Page Footer

[Melissa]

I have a report that groups by customer and creates a new page for each
customer. I need to programatically print different text in the page footer
of each page. What code do I need to do this and in what event do I need to
put the code?

Thanks for all help!

Melissa

[MGFoster]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Something like this (untested):

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

Dim strText As String

Select Case CustomerID
Case 1: strText = "Text for Customer 1"
Case 2: strText = "Text for Customer 2"
End Select

Me!txtPageFooter = strText

End Sub

--
MGFoster:::mgf00 <at> earthlink <decimal-point> net
Oakland, CA (USA)

-----BEGIN PGP SIGNATURE-----
Version: PGP for Personal Privacy 5.0
Charset: noconv

iQA/AwUBQVYTGoechKqOuFEgEQK4gACfX6wthoiL1xU6QxXer6Nwgv WMqbEAn1o2
SgZJgW9GQimmZ7obZvyjckkn
=FvGt
-----END PGP SIGNATURE-----
Melissa wrote:

I have a report that groups by customer and creates a new page for each
customer. I need to programatically print different text in the page footer
of each page. What code do I need to do this and in what event do I need to
put the code?