Cancel button not canceling

[Sahak]

Hi all,

Because I need to print on other printer than default, I use VBA code to show all available printers, then select needed printer & print:

 Sub Show_PrintersDialog_and_Print_Cards()
    Application.Dialogs(xlDialogPrinterSetup).Show
    Call Print_Cards
End Sub

The problem is this: Dialog has three buttons: Setup…, OK, Cancel

Setup - is for setting up document properties, it is normal
OK - prints, it is normal
Cancel - also prints, Not Normal, How to really cancel (do not print, close dialog) ?

 

[Michael M]

Whats in the Print_cards macro ???

 

[Michael M]

Try this...when it works, remove the MsgBox line

Sub Show_PrintersDialog_and_Print_Cards()
    Application.Dialogs(xlDialogPrinterSetup).Show
If vbCancel Then
MsgBox "Cancelled"
Exit Sub
End If
Call Print_Cards
End Sub

 

[Sahak]

Bravo Michael, thank you VERY much.

 

[Michael M]

pleasure...