Print the first page of all sheets

[bak]

I have a problem with VBA. I want to print all first pages of each sheet. In one print instruction order, but I can't fix it.

Anyone solution for it?

 

[VoG]

Try

Sub Printall()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    ws.PrintOut from:=1, to:=1
Next ws
End Sub

 

[bak]

Tis solutions makes of every sheet a new print. I'd like to get al the pdf files of de first page of each sheet in one single pdf file. Is this possible?