Knop "annuleren" werkt niet

[verluc]

Heb volgende regel in macro:

If Application.Dialogs(xlDialogPrinterSetup).Show Then

Bij het verschijnen van deze printerkeuze zijn er drie mogelijkheden:
Instellen - O.K. - Annuleren

Bij het kiezen van de knop "annuleren" zou deze macro naar exit sub moeten gaan,doch het printen gaat gewoon door.
Hoe kan dit worden voorkomen ?

 

[Niels28]

zo iets

Sub test()
Myprinter = Application.Dialogs(xlDialogPrinterSetup).Show
If Myprinter = False Then Exit Sub
PrintOut
End Sub

of:

Sub test()
If Application.Dialogs(xlDialogPrinterSetup).Show = False Then Exit Sub
PrintOut
End Sub

Niels

 

[verluc]

Zeer bedankt. Werkt perfect !!