Hallo, ich bitte um Abhilfe zu folgendem Problem:
Der Druckauftrag hört bei der Zeile: " .Columns("A:PB").Hidden = True"
auf und druckt nicht.
Ich kann den Fehler nicht erkennen weshalb es gerade da stoppt.

Vielen Dank im Voraus

Grüße
Dogey
_____________________________________

Sub Druck_Januar()
Application.ScreenUpdating = False
With ActiveSheet
.Columns("A:PB").Hidden = True
.Columns("J:AN").Hidden = False
.Columns("E").Hidden = False
End With
ActiveSheet.Shapes("Druck_Monat").Visible = False
Range("E1:AN212").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$PC$309"
ActiveSheet.PageSetup.PrintArea = "$A$1:$PB$309"
Application.PrintCommunication = True
ActiveSheet.PageSetup.PrintArea = "$A$1:$PB$309"
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Application.PrintCommunication = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Druck_Ende
End Sub