elsg
11-14-2013, 04:19 AM
I try repeat this code 4 times
Sub Repeat_Four_Time()
Dim Rep As Long
For Rep = 1 To 4
Worksheets("Sheet1").PageSetup.PrintArea = Range("B2", Range("G65536").End(xlUp).Offset(2)).Address
ActiveSheet.PrintOut
Next Rep
End Subb
Sub Repeat_Four_Time()
Dim Rep As Long
For Rep = 1 To 4
Worksheets("Sheet1").PageSetup.PrintArea = Range("B2", Range("G65536").End(xlUp).Offset(2)).Address
ActiveSheet.PrintOut
Next Rep
End Subb