Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Using footer to display a "document expiration date"
That worked.
Thanks so much! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel - Golf - how to display "-2" as "2 Under" or "4"as "+4" or "4 Over" in a calculation cell | Excel Discussion (Misc queries) | |||
How do I change the column heading in Excel to display "A" "B" "C | New Users to Excel | |||
Retrieving info from "child" to a "parent" document | Excel Discussion (Misc queries) | |||
Showing "Created by User, Date, Time" in Footer | Excel Discussion (Misc queries) | |||
Footer, "fixed" date | Excel Programming |