looping thru sheets for printing.

[Pal]

I am trying to print page 1 & 2 of a 4 page worksheet.
But I have have 25 worksheets.
I ran the following code but it printed multiple copies of the first sheet.
So it never looped to the next sheet.
Any ideas?
Thanks
Pal


Sub Print_All()
Dim sht As Variant

For Each sht In ThisWorkbook.Sheets
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1,
Collate:=True
Next sht

End Sub

 

[Tom Ogilvy]

Sub Print_All()
Dim sht As Variant

For Each sht In ThisWorkbook.Sheets
sht.PrintOut From:=1, To:=2, Copies:=1,
Collate:=True
Next sht

End Sub

 

[JE McGimpsey]

That's because you're telling it to print out only the selected sheets
in the active window as many times as you have sheets in the workbook.


Try:

Dim sht As Worksheet
For Each sht In ActiveWindow.SelectedSheets
sht.PrintOut
Next sht