Druck abbrechen (Ereigniscode ?)
07.10.2004 10:18:24
Kersten
Ich ein Makro geschrieben welches einige Druckvorgänge nacheinander erledigt.
Bein ersten Vorgang rufe ich noch über
Application.Dialogs(xlDialogPrint).Show
den Druckdialog auf. Danach laufen die weiteren Vorgänge automatisch weiter.
Wenn ich nun aber Abbrehen drücke läuft der Rest des Makros trotzdem weiter ab.
Wie kann ich nun das Drücken von Abbruch abfangen damit ich die Subroutine verlassen kann und der Rest nicht mehr gedruckt wird?
Danke
Gruß Kersten
Sub Drucken_Standard()
Application.ScreenUpdating = False
'Startseite / Deckblatt Drucken
With Worksheets("Start")
.Visible = True
.Select
End With
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Dim rng As Range
Set rng = Range(Cells(1, 1), _
Cells(Cells(100, 6).End(xlUp).Row, 6))
ActiveSheet.PageSetup.PrintArea = rng.Address
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Application.Dialogs(xlDialogPrint).Show
'Summenblatt drucken
With Worksheets("Auswertung")
.Visible = True
.Select
End With
Range("CP1:CX1").Select
ActiveWindow.Zoom = 100
ActiveWindow.Zoom = True
ActiveSheet.PivotTables("PivotTable1").RefreshTable
ActiveSheet.PivotTables("PivotTable2").RefreshTable
ActiveSheet.PivotTables("PivotTable5").RefreshTable
ActiveSheet.PivotTables("PivotTable6").RefreshTable
Dim rng3 As Range
Set rng3 = Range(Cells(1, 95), _
Cells(Cells(500, 101).End(xlUp).Row, 101))
ActiveSheet.PageSetup.PrintArea = rng3.Address
With ActiveSheet.PageSetup
.Orientation = xlPortrait
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveWindow.SelectedSheets.PrintOut
End Sub