Alle Blätter einer Arbeitsmappe drucken

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