Using footer to display a "document expiration date"

[Scott Wagner]

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

[Bob Phillips]

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" <[email protected]> wrote in message
news:[email protected]...
> 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
>
>

[Scott Wagner]

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" <[email protected]> wrote in message
> news:[email protected]...
> > 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]

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

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" <[email protected]> wrote in message
> news:[email protected]...
> > 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
> >
> >
>
>
>

[Bob Phillips]

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" <[email protected]> wrote in message
news:[email protected]...
> 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" <[email protected]> wrote in message
> > news:[email protected]...
> > > 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
> > >
> > >
> >
> >
> >

[Scott Wagner]

That worked.

Thanks so much!