Hello Murph
Try using this code
Sub Print1()
Range("A2:O3").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Cheers
--
robmeister
------------------------------------------------------------------------
robmeister's Profile:
http://www.excelforum.com/member.php...o&userid=24364
View this thread:
http://www.excelforum.com/showthread...hreadid=380230