Save Message Box

  • Thread starter Thread starter gregork
  • Start date Start date
G

gregork

I want to have a save message box come up, prompting me to save when I click
print on my excel worksheet.
Can someone please help me with the VB code for this. I think I need to have
a before print event right?

Regards
greg
 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Select Case MsgBox("Save before Print?", vbYesNoCancel, "Save?")
Case vbYes: Me.Save
Case vbCancel: Cancel = True
End Select
End Sub
 
Perfect thanks Rob.

Regards
Greg

Rob van Gelder said:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Select Case MsgBox("Save before Print?", vbYesNoCancel, "Save?")
Case vbYes: Me.Save
Case vbCancel: Cancel = True
End Select
End Sub
Click to expand...
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

"save as" 0
Handling of Save Button procedure in Save As Dialog Box. 1
display message box in excel(2003) using VBA word(2003) 0
Lose macros before saving 4
Excel VBA - Problem with Closing Print Preview 0
To remove the promt question message in a Save As method 2
Using VBA to automate printing with mail merge 1
If no default printer Open Print Diablog box 2

Back
Top