Dear all
My problem print sheet of macro order then print one copy and rest printer some time let second copy print and rest printer some time rest and therd copy print. I want to order print and fast print copy (Original, Duplicate and Triplicate)
My code:
Sub Macroprint()
'
' '
Dim i As Integer
Worksheets("DIVY").Select
Worksheets("DIVY").PageSetup.PrintArea = "$A$1:$N$41"
For i = 1 To 3
Select Case i
Case 1
ActiveSheet.Range("K2").Value = "Original"
Case 2
ActiveSheet.Range("K2").Value = "Duplicate"
Case 3
ActiveSheet.Range("K2").Value = "Triplicate"
End Select
ActiveSheet.PrintOut copies:=1, collate:=True
Next i
ActiveSheet.Range("k2").ClearContents
End Sub