Danny,
Something like this should work.
You should also set the print area to be printed.
Sub Print_worksheet()
Worksheets("sheet1").PrintOut
Worksheets("sheet2").PrintOut
Worksheets("sheet3").PrintOut
End Sub
HTH
Charle
--
Message posted from
http://www.ExcelForum.com