The macro below can be used to print the pages of a worksheet in reverse order.
Sub PrintInReverseOrder()
Dim TotalPages As Long, p As Long
TotalPages = (ActiveSheet.HPageBreaks.Count + 1) * _
(ActiveSheet.VPageBreaks.Count + 1)
For p = TotalPages To 1 Step -1
'ActiveSheet.PrintOut p, p
Debug.Print "Printing page " & p & " of " & TotalPages
Next p
End Sub
The applications/code on this site are distributed as is and without warranties or liability. In no event shall the owner of the copyrights, or the authors of the applications/code be liable for any loss of profit, any problems or any damage resulting from the use or evaluation of the applications/code.
