Hi Tonso

You good amend this code

Sub print_1_2_3()
rowcount = Cells(Cells.Rows.Count, "a").End(xlUp).Row
If rowcount = 62 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
End If
If rowcount < 62 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If

End Sub


--
jetted
------------------------------------------------------------------------
jetted's Profile: http://www.excelforum.com/member.php...o&userid=17532
View this thread: http://www.excelforum.com/showthread...hreadid=562965