Hallo,
wenn du Tabellenblätter ausblendest, dann kannst du diese nicht ausdrucken.
Hier das geänderte Makro, damit das dennoch funktioniert:
Sub drucken()
Dim bversteckt As Boolean
'Bildschirmaktualisierung ausschalten:
Application.ScreenUpdating = False
With Worksheets("Lfd.1")
'Prüfen, ob Arbeitsblatt ausgeblendet
If .Visible = False Then
bversteckt = True 'Marker für wieder ausblenden setzen
.Visible = True 'Blatt einblenden
End If
'Blatt ausdrucken
.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
'ggf. wieder ausblenden
If bversteckt = True Then .Visible = False
End With
'Bildschirmaktualisierung einschalten:
Application.ScreenUpdating = True
End Sub
Gruß
M.O.