Putting Printdate in header/Footer

[Dmanley80]

Does anybody know is it possible to put printdate in the
header or footer of an excel sheet?
Thank you.

 

[Frank Kabel]

Does anybody know is it possible to put printdate in the
header or footer of an excel sheet?
Thank you.

Hi
You have to use the workbook event Before_print to insert
cell values into the header/footer. e.g.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In ActiveWindow.SelectedSheets
With wkSht.PageSetup
.CenterHeader = Format(Now, "mm-dd-yyyy")
End With
Next wkSht
End Sub

This will insert the current date in your header

Frank

 

[JMay]

This feature is already provided in the Page Setup; Drill down to the
Header/Footer screen click in the Left Footer Box then click on an Icon with
a small calendar "8.7"
then OK out; Time is also available see the clock?