how do i get a message box asking me if i want to print befor my macro prints?

[tonywatsonhelp]

Hi Guys,

I've got this macro that runs, and part of what it does is print out a document, but I don't always want to print it out.

this is the part of the code that currently prints

Sheets("Print Page (2)").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1

How do I get it to show a message box saying "Do you want to print a receipt?"
with the option of yes or no, if yes then print and carry on with macro if no skip print and carry on with macro?

Thanks

Tony

 

[VoG]

Try

Sheets("Print Page (2)").Select
If MsgBox("Do you want to print a receipt?", vbYesNo + vbQuestion) = vbYes Then ActiveWindow.SelectedSheets.PrintOut Copies:=1

 

[Legacy 167133]

If MsgBox("Would you like to continue with Printing?", vbOKCancel, ("Print Confirmation")) = vbOK Then
Sheets("Print Page (2)").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If

 

[tonywatsonhelp]

Brilliant,
Thank to both of you, I was miles away so you've been a massive help

Tony

 

[Legacy 167133]

You are welcome. Good to see your problem has been sorted.