VBA Code to Print Custom Pages in Excel

VBA code that you can use to print custom pages in Excel

VBA Code:

Sub PrintCustomPages()
    Dim ws As Worksheet
    Dim pageRange As String
    ' Set the worksheet you want to print custom pages from
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' Change "Sheet1" to the desired worksheet name
    ' Set the custom page range to print
    pageRange = "1, 3, 5-7" ' Modify the page range as desired
    ' Set the page setup properties for custom pages
    With ws.PageSetup
        .PrintArea = "" ' Clear the existing print area
        .PrintOut From:=1, To:=1 ' Print the first page to determine the print area
        .PrintArea = ws.PageSetup.PrintArea ' Set the determined print area
        .PrintOut From:=pageRange ' Print the custom pages
    End With
    ' Inform the user that the custom pages have been printed
    MsgBox "The custom pages have been printed!"
End Sub

Check All VBA Codes

Join Our Telegram Group techguruplus telegram group Join Our WhatsApp Group techguruplus whatsapp group
Nazim Khan - Author Image

Nazim Khan (Author) 📞 +91 9536250020
[MBA in Finance]

Nazim Khan is an expert in Microsoft Excel. He teaches people how to use it better. He has been doing this for more than ten years. He is running this website (TechGuruPlus.com) and a YouTube channel called "Business Excel" since 2016. He shares useful tips from his own experiences to help others improve their Excel skills and careers.

Leave a Comment