Hi Scott,
Bob's code is working for me, Are you sure you put it in the "WorkBook"
Module,
and not a General or Sheet Module??
Dave
Scott Wagner Wrote:
Not working... following your directions. What could I be missing
here?
Thanks for the quick response.
"Bob Phillips" wrote:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftFooter = "This document is invaid after " & Format(Date
+ 30,
"dd/mm/yyyy")
End With
End Sub
'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code
--
HTH
Bob Phillips
(remove nothere from email address if mailing direct)
"Scott Wagner" wrote in
message
...
I have some controlled documents that occasionally need to be
printed,
some
of which are in excel, and need to have a date printed on them when
the
printed document should be destroyed. Basically adding a footer
that
read:
"This document is invaid after 01/01/2006"
The date should be 30 days after the date the document is printed.
How is this done?
Thanks in advance,
Scott
--
Desert Piranha
------------------------------------------------------------------------
Desert Piranha's Profile:
http://www.excelforum.com/member.php...o&userid=28934
View this thread:
http://www.excelforum.com/showthread...hreadid=511720