Print Activesheet.next.select problem

[g4cox]

Please can anyone help me I am having a problem with a print marco should be really simple but I keep getting a run time error.
I am trying to print a sheet then use ActiveSheet.Next.Select then print (using a Do Until Loop) again etc but when it gets to the last sheet it then hits a run time error any ideas??

Thanks Gareth[FONT=&quot]<o></o>[/FONT]

 

[RSXchin]

try a "For" loop. 1 to sheets.count

 

[VoG]

You shouldn't need to select sheets. Try like this

Sub prt()
Dim i As Long
For i = 1 To Worksheets.Count
    Worksheets(i).PrintOut
Next i
End Sub

 

[Sektor]

Sub G2()
    Dim sh As Worksheet
    For Each sh In Worksheets
        sh.PrintOut
    Next
End Sub

 

[g4cox]

thanks guys all of them work.

cheers