How many sheets of paper do I need?

[carstenhdk]

Hi




I have a report which needs to be printed on special paper from a printer. The page setup is set for the printer choice and setup. Is it possible to make a messagebox appear when I click the print buttom - "Remember to bring [total page number pages] sheets of special paper with you!

?




Carsten

[maximus]

This is a code that is attached to a button to open a report. I have put a line highlighted in red that will display the message.




Private Sub Command10_Click()
On Error GoTo Err_Command10_Click

Dim stDocName As String

stDocName = "Table1"
DoCmd.OpenReport stDocName, acPreview
MsgBox "Please change page setup", vbInformation, "Change page Set up"

Exit_Command10_Click:
Exit Sub

Err_Command10_Click:
MsgBox Err.Description
Resume Exit_Command10_Click

End Sub


if this solves your problem mark the thread solved.