Printopdracht annuleren in macro

[HMDH]

Beste Forum,

ik heb een macro voor het uitprinten van een stukje document.
Maar als ik nu de opdracht van de macro het printen wil annuleren gaat de printer toch aan de gang en print de selectie uit.
Kan ik de macro aanvullen met een stukje VBA zodat het annuleren wel werkt?
Zo ja, dan graag hulp met dat stukje VBA.

Groet, HarryM.

Sub Printwedstrijdformulier()
'
' Printwedstrijdformulier Macro


Application.Dialogs(xlDialogPrinterSetup).Show
Sheets("Formulier").Select
Range("B1:S30").Select
ActiveSheet.PageSetup.PrintArea = "$B$1:$S$30"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Range("A1").Select

End Sub

 

[edmoor]

Dat zou zo moeten kunnen.
Meteen je code maar iets gewijzigd.

Sub Printwedstrijdformulier()
    If Not Application.Dialogs(xlDialogPrinterSetup).Show Then Exit Sub
    With Sheets("Formulier")
        .PageSetup.PrintArea = "B1:S30"
        .PrintOut Copies:=1
    End With
End Sub

 

[HMDH]

Bedankt,
Werkt prima.