Printing Multiple Ranges from Multiple Worksheets

  • Thread starter Thread starter Dave Barkley
  • Start date Start date
D

Dave Barkley

Is there a way to print out multiple ranges from multiple
worksheets onto a single page. What I am trying to do is
take Cells (a1:h4) "sheet1" and Cells (a1:f4) "sheet2" and
print them on one page. I tried the union command but it
did not seem to like the multiple sheets.

Any help would be great.

Thanks,

Dave
 
Try this

It will add a sheet to your workbook
Paste the ranges in it
Print
Delete the sheet


Sub Printexample()
Dim WS As Worksheet
Set WS = Worksheets.Add
Sheets("Sheet1").Range("A1:h4").Copy WS.Cells(1, 1)
Sheets("Sheet2").Range("A1:f4").Copy WS.Cells(5, 1)

WS.PrintOut
Application.DisplayAlerts = False
WS.Delete
Application.DisplayAlerts = True
End Sub
 
Back
Top