Forcing the Print Dialog box even when the user hit the print icon on the toolbar

[BPtexan]

I have a program that I'm trying to make printing easier. I'm trying to create a macro that will automatically bring up the print dialog box when the user hits ctrl+p or uses the icon on the toolbar.

I know the command to bring up the print dialog box:
Application.Dialogs(xlDialogPrint).Show

I also know how to access the before print do ___ in the vba editor.

The problem is by running the xldialogprint command, the process starts over in the before print action. How can I avoid this? Thanks!

 

[Jon von der Heyden]

Perhaps;

[COLOR="Blue"]Private[/COLOR] [COLOR="Blue"]Sub[/COLOR] Workbook_BeforePrint(Cancel [COLOR="Blue"]As[/COLOR] [COLOR="Blue"]Boolean[/COLOR])
    Cancel = [COLOR="Blue"]True[/COLOR]
    [COLOR="Blue"]With[/COLOR] Application
        .EnableEvents = [COLOR="Blue"]False[/COLOR]
        .Dialogs(xlDialogPrint).Show
        .EnableEvents = [COLOR="Blue"]True[/COLOR]
    [COLOR="Blue"]End[/COLOR] [COLOR="Blue"]With[/COLOR]
[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]Sub[/COLOR]

 

[BPtexan]

Works perfectly! Thanks!