Pinting certain pages of a report

  • Thread starter Thread starter Wishful Thinker
  • Start date Start date
W

Wishful Thinker

Would someone please give me an idea of what a code would look like
that prints only certain pages of a report, for example pages 7
through 9?

Thanks!
 
Wishful,

Try this...

Dim StartingPage As Integer
Dim EndingPage As Integer
StartingPage = InputBox("Enter first page number to print")
EndingPage = InputBox("Enter last page number to print")
DoCmd.OpenReport "YourReport", acViewPreview
DoCmd.PrintOut acPages, StartingPage, EndingPage
 
Back
Top