Mit meinem code rufe ich die Drucker auf und Drucke aus und lösche dann ein Tabellenblatt. Wenn ich nun aus versehen die Drucker aufrufe und auf abrechen gehe kann ich zwar den ausdruck verhindern aber es löscht mir dann das Tabellenblatt nicht. Was mach eich da Falsch?
Sub FPlandrucken()
Call jahrdruck
'Call schaltjahrdruck
Sheets("Jahresdruck").Select
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
With ActiveSheet
With .PageSetup
.PaperSize = xlPaperA3
.Orientation = xlLandscape
.FitToPagesTall = False
.FitToPagesWide = 1
.Zoom = False
End With
End With
Application.Dialogs(xlDialogPrinterSetup).Show
If (Application.Dialogs(xlDialogPrinterSetup).Show = False) Then
Exit Sub
End If
ActiveSheet.PrintOut
Application.DisplayAlerts = False
Worksheets("Jahresdruck").Delete
Application.DisplayAlerts = True
Sheets("Planer").Select
Range("A7").Select
End Sub
Danke und Gruss Roger