Sub PromptPrinter()

[Pinaceous]

Hi Al,

I'm using the following code to call a printer.

Sub PromptPrinter()


Application.Dialogs(xlDialogPrinterSetup).Show


End Sub

How do I add if the user clicks the

Cancel

button that the sub can provide a Msgbox "Cancel" ?


Thank you!
pinaceous

 

[Scott Huish]

Is this what you need?

Sub PromptPrinter()
Dim x
x = Application.Dialogs(xlDialogPrinterSetup).Show
If x = False Then MsgBox "Cancelled"
End Sub

 

[Pinaceous]

Hey Scott,

That works for the application. In testing out the sub;

Could I ask in lieu of the message box that when the user clicks the cancel button that the sub does nothing?

For example, for the application dialogue, if the user clicks the cancel button the sub does not in fact cancel but skips this step or ignores the cancellation.

Is this possible?

Many thanks,
Paul

 

[Scott Huish]

So you're trying to not allow Cancel?

How about this?

Sub PromptPrinter()
Do Until x
    x = Application.Dialogs(xlDialogPrinterSetup).Show
Loop
End Sub

 

[Pinaceous]

Hi Scott,

That looks like it would do it!

Curious, is there another way to accomplish this without looping it?

Thanks,
Paul

 

[Scott Huish]

Yes, but this won't loop very much. It only loops if Cancel is pressed.
This loops until x is True meaning a printer was selected.

But here you go:

Sub PromptPrinter()
x = Application.Dialogs(xlDialogPrinterSetup).Show
If x = False Then Call PromptPrinter
End Sub

 

[Pinaceous]

Hi Scott,

Gotcha. Thanks for explaining the concept and for providing an alternate method.

I'm going to give it a go now.

Take care,
Paul