Druck-Makro abbrechen

Question

Hallo zusammen!

Ich würde mich über Hilfe zu folgendem Problem sehr freuen :-)
Mein Anliegen:

Wenn der Drucker-Auswahldialog erscheint und ich auf "Abbrechen"
klicke, dann läuft das Makro trotzdem weiter - es wird einfach der
Standarddrucker verwendet... Was muss ich denn machen, damit bei
einem Klick auf "Abbrechen" beim erscheinen des Drucker-
Auswahldialog, das Makro abgebrochen wird?

Hier der Code, um den es letztendlich geht:

Private Sub CommandButton4_Click()

Dim erste As String
Dim letzte As String

erste = Sheets("MASTER_TABLE").Range("BK2")
letzte = Sheets("MASTER_TABLE").Range("BK3")

Application.Dialogs(xlDialogPrinterSetup).Show
Range(Rows(erste), Rows(letzte)).Select
Selection.PrintOut Copies:=1, Collate:=True
Range("A1").Select

End Sub

Schon mal vielen Dank!

Answer 1

Erledigt, hier die Lösung:

Private Sub CommandButton4_Click()

Dim erste As Long
Dim letzte As Long, p

erste = Sheets("MASTER_TABLE").Range("BK2")
letzte = Sheets("MASTER_TABLE").Range("BK3")

p = Application.Dialogs(xlDialogPrinterSetup).Show
If p Then
With ActiveSheet
.Range(.Cells(erste, 1), .Cells(letzte, 1)).EntireRow.Select
Selection.PrintOut Copies:=1, Collate:=True
.Range("A1").Select
End With
End If
End Sub