I have a workbook with around 70 sheets in it
Each sheet, when printed, covers around 2-3 pages. I only need to print off page 1 of each sheet
I tried the following macro, but it printed just the one sheet 70 times
Could someone suggest a change so it does all sheets, and not just the one

Sub TestPrint(
Dim ws As Workshee

For Each ws In Worksheet
On Error GoTo
ActiveSheet.PrintOut From:=1, To:=
Next w

End Su

TIA

Bobby