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
--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl
"Dave Barkley" wrote in message ...
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