Sub PrintPageOne()
Dim ws As Worksheet
Dim CurSheet As Worksheet
Set CurSheet = ActiveSheet
For Each ws In ActiveWorkbook.Worksheets
ws.Activate
ActiveSheet.PrintOut _
From:=1, To:=1, Copies:=1, Collate:=True
Next ws
CurSheet.Activate
End Sub
Sub PrintPageOne()
Dim ws As Worksheet
Dim CurSheet As Worksheet
Set CurSheet = ActiveSheet
For Each ws In ActiveWorkbook.Worksheets
ws.Activate
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveSheet.PrintOut
Next ws
CurSheet.Activate
End Sub