Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")

[Pinaceous]

Hi All,

I'm using

 Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")

to execute a sheet to print.


My question is, How do I put add in the vba code to wait until the user clicks the printer icon is pressed for it to then produce:

   MsgBox "Click Print Proceed!"

I'm trying to achieve that the vba code waits until the user prompts this icon.

Any suggestions?

Thanks,
pinaceous

 

[Yongle]

Is this what you want?

Sub PrintIt()
    Dim answer As Variant
    answer = MsgBox("Click Print Proceed!", vbYesNo)
    If answer = vbYes Then Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
End Sub