Print order

[Guest]

I have the following code (with the help of Doug)

For intPage = Application.Reports(strDocName).Pages To 1 Step -1
DoCmd.PrintOut acPages, intPage, intPage
Next intPage
DoCmd.Close acReport, strDocName
End if

What I would like to do is print the report which is 3 pages long in the
following order!

Page 1 becomes page 2 (when printed)
Page 2 becomes page 1
Page 3 becomes page 3

 

[fredg]

I have the following code (with the help of Doug)

For intPage = Application.Reports(strDocName).Pages To 1 Step -1
DoCmd.PrintOut acPages, intPage, intPage
Next intPage
DoCmd.Close acReport, strDocName
End if

What I would like to do is print the report which is 3 pages long in the
following order!

Page 1 becomes page 2 (when printed)
Page 2 becomes page 1
Page 3 becomes page 3

As long as you already know you have a 3 page report there should be
no need to cycle through the pages (nor open the report and close it).

DoCmd.SelectObject acReport, strDocName,True
DoCmd.PrintOut acPages, 2, 2
DoCmd.PrintOut acPages, 1, 1
DoCmd.PrintOut acPages, 3, 3