In my report, I have an unbound field named “FooterText”. When the
report is printed (even print previewed), I want it to
1. Print 3 collated copies
2.Change the Footer text on each:
first copy to “Sign and return with payment”.
second copy to “Keep for your records”.
third copy to “KDA copy”.
3. Print the first 2 pages in color and the 3rd in monochrome. (I don’t care if the print preview is color).
The code I have so far is below. I’m not getting any errors, but it isn’t generating 3 copies for each record, so I don’t know if the footertext will work or not.
Option Compare Database
Option Explicit
Dim Copies As Integer
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
DoCmd.PrintOut acPages, , , , 3, True
End Sub
Private Sub Report_Open(Cancel As Integer)
Copies = 1
DoCmd.Maximize
End Sub
Private Sub PageFooter_Format(Cancel As Integer, FormatCount As Integer)
Select Case Copies
Case 1
[FooterText] = “SIGN AND RETURN WITH PAYMENT”
Case 2
[FooterText] = “KEEP FOR YOUR RECORDS”
Case 3
[FooterText] = “KDA COPY”
End Select
If Page = Pages Then Copies = Copies + 1
End Sub
