Fredrik,

Here is something I have used it has worked pretty well for me.

Sub PrintAll
Dim wks As Worksheet

Application.ScreenUpdating = False
On Error Resume Next

For Each wks In Worksheets
wks.PrintOut From:=1, To:=1, Copies:=1
Next wks

Application.ScreenUpdating = True

On Error GoTo 0

End Sub

"Fredrik" wrote:

I want to print just the first page from several tabs in a workbook.
The code is:

ActiveSheet.PrintOut From:=1, To:=1, Copies:=1

But how do I write the macro so that the printing selection is repeated for
the next tab until the end of the workbook?