Nutzen Sie unser 
106002
Mit folgendem Makro werden alle Blätter in einer Arbeitsmappe gedruckt.
In diesem Beispiel wird jedoch nicht gedruckt sondern die Seitenansicht angezeigt.
Sub alle_blaetter_drucken()
Dim blatt As Worksheet
For Each blatt In Worksheets
If blatt.Visible = True Then
blatt.PrintPreview
End If
Next blatt
End Sub
