Using footer to display a "document expiration date"
 

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

Using footer to display a "document expiration date"
 

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

Using footer to display a "document expiration date"
 

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

Using footer to display a "document expiration date"
 

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

Using footer to display a "document expiration date"
 

Could it be NG wrap-around.

Maybe try

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


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Scott Wagner" wrote in message
...
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

Using footer to display a "document expiration date"
 

That worked.

Thanks so much!