Excel - Print Out Multiple Ranges With Temp Sheet

This macro prints out multiple ranges by copying them to a temporary sheet.

Excel

3214
1641
0
0

Add to collection

1 Open MS Excel.

2 Create a blank workbook.

3 Go to Developer's tab > click on "Visual Basic" button or hit Alt + F11.

4 Go to Insert tab > click on "Module" or hit M.

5 Copy the VBA code from below.

6 Paste the code in the newly created module.

7 Go to Run tab > click on "Run Sub/UserForm" or hit F5.

8 That's it!

Code

'===========================================
' Print Out Multiple Ranges With Temp Sheet
'===========================================
Sub printOutMultipleRangesTempSheet()
    ' Add temp sheet
    Worksheets.Add Before:=Worksheets(1)
    ' Use sheet
    With Worksheets(1)
        ' Copy range 1
        Worksheets(2).Range("A1:A10").CopyPicture Appearance:=xlPrinter
        .Paste Destination:=.Range("A1")
        ' Copy range 2
        Worksheets(2).Range("B1:C10").CopyPicture Appearance:=xlPrinter
        .Paste Destination:=.Range("A11")
        ' Print out
        .PrintOut
        ' Delete temp sheet
        Application.DisplayAlerts = False
        .Delete
        Application.DisplayAlerts = True
    End With
End Sub