Pinting certain pages of a report

[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!

 

[Steve Schapel]

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