For i = 1 to 40
Range("A1").value = i
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
next i
--
Kaak
------------------------------------------------------------------------
Kaak's Profile:
http://www.excelforum.com/member.php...fo&userid=7513
View this thread:
http://www.excelforum.com/showthread...hreadid=555909