» Print the pages in reverse order using VBA in Microsoft Excel

VBA macro tip contributed by Erlandsen Data Consulting offering Microsoft Excel Application development, template customization, support and training solutions 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