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
Join Our Telegram Group
Join Our WhatsApp Group
