Print the pages in reverse order
2000-02-04 Printing 0 245
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