Printing

[Craig Pfaff]

Hello,

I have a user with Excel XP and they are printing many pages at one time, it
prints the the 1st page first and the last one last. They'd like to switch
it so they can have the 1st page on the top of the pile when finished. Is
there a way to change that?

Thanks Craig

 

[Dave Peterson]

Some printers have this option built in. You should check your printer's
properties.

But if yours doesn't support this (mine doesn't), then you could use a macro to
print in reverse order:

Option Explicit
Sub testme()

Dim TotalPages As Long
Dim pCtr As Long

TotalPages = ExecuteExcel4Macro("GET.DOCUMENT(50)")

For pCtr = TotalPages To 1 Step -1
ActiveSheet.PrintOut _
Preview:=True, _
From:=pCtr, to:=pCtr
Next pCtr

End Sub

But if you get a banner sheet between each print job, don't use this! It sends
each sheet to the printer as a different print job.

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm