Print the pages in reverse order using VBA in Microsoft Excel

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

Leave a Reply

Your email address will not be published. Required fields are marked *

Terms and Conditions of use

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.