Before print
 

I would like a message to appear when someone tries to print a time sheet
that asks "Have you changed the date"

Before print
 

Dm76, here is one way, put in thisworkbook code

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Msg = "Have you changed the date"
Title = "Continue ?"
Response = MsgBox(Msg, vbYesNo + vbQuestion, Title)

If Response = vbNo Then

'your code here if no

Cancel = True 'to cancel the print

Exit Sub ' Quit the macro
End If

'your code here if yes

End Sub




--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"Dm76" wrote in message
...
I would like a message to appear when someone tries to print a time sheet
that asks "Have you changed the date"

Before print
 

Use the BeforePrint event

See Chip Pearson's page on Events
http://www.cpearson.com/excel/events.htm

--
Regards,
Tom Ogilvy


"Dm76" wrote in message
...
I would like a message to appear when someone tries to print a time sheet
that asks "Have you changed the date"

Before print
 

Thanks, worked a treat.

"Paul B" wrote:

Dm76, here is one way, put in thisworkbook code

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Msg = "Have you changed the date"
Title = "Continue ?"
Response = MsgBox(Msg, vbYesNo + vbQuestion, Title)

If Response = vbNo Then

'your code here if no

Cancel = True 'to cancel the print

Exit Sub ' Quit the macro
End If

'your code here if yes

End Sub




--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"Dm76" wrote in message
...
I would like a message to appear when someone tries to print a time sheet
that asks "Have you changed the date"

Before print
 

Your Welcome

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"Dm76" wrote in message
...
Thanks, worked a treat.

"Paul B" wrote:

Dm76, here is one way, put in thisworkbook code

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Msg = "Have you changed the date"
Title = "Continue ?"
Response = MsgBox(Msg, vbYesNo + vbQuestion, Title)

If Response = vbNo Then

'your code here if no

Cancel = True 'to cancel the print

Exit Sub ' Quit the macro
End If

'your code here if yes

End Sub




--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"Dm76" wrote in message
...
I would like a message to appear when someone tries to print a time
sheet
that asks "Have you changed the date"