excel-print-out-multiple-ranges-several-sheets

Excel - Print Out Multiple Ranges Several Sheets

This macro prints out multiple ranges in several worksheets.

Excel

  • 924
  • 537
  • 0
  • 0
Add to collection
© 2021VBAmacros.net

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!


Advertisement

Code
'=============================================
' Print Out Multiple Ranges In Several Sheets
'=============================================
Sub printOutMultipleRangesSeveralSheets()
    ' Add temp sheet
    Worksheets.Add Before:=Worksheets(1)
    ' Use temp 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:B10").CopyPicture Appearance:=xlPrinter
        .Paste Destination:=.Range("A11")
        ' Copy range 3 sheet 2
        Worksheets(3).Range("A1:A10").CopyPicture Appearance:=xlPrinter
        .Paste Destination:=.Range("A21")
        ' Copy range 4 sheet 2
        Worksheets(3).Range("B1:B10").CopyPicture Appearance:=xlPrinter
        .Paste Destination:=.Range("A31")
        ' Print out
        .PrintOut
        ' Delete temp sheet
        Application.DisplayAlerts = False
        .Delete
        Application.DisplayAlerts = True
    End With
End Sub
Advertisement


Comments
Sort by:
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.
Advertisement
  • Created
    05-Jun-2020
  • Last updated
    05-Jun-2020
Advertisement
VBAmacros.net VBAmacros.net
Code was successfully copied!
VBAmacros.net VBAmacros.net
Please sign in!
VBAmacros.net VBAmacros.net
You've already voted!