Putting Printdate in header/Footer

  • Thread starter Thread starter Dmanley80
  • Start date Start date
D

Dmanley80

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

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
 
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?
 
Back
Top