Run Macro 4 time

[elsg]

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

[snb]

Sub M_snb() 
   with sheets("Sheet1")
     .PageSetup.PrintArea = .cells(1,2).currentregion.offset(1,1).resize(,6).Address 
     .PrintOut ,4
   end with
End Sub

[elsg]

snb, thank you..but...
... does not work the way I expected, no repeats 4 times the same impression.

thanks

[elsg]

look Cross-Post
http://www.mrexcel.com/forum/excel-questions/