Header/Footer

  • Thread starter Thread starter James
  • Start date Start date
J

James

would like to have the last modified dated printed out in
the footer. Is there a code or would this require a macro
of some sort?

Thanks
 
Hi James
this would require a macro. Put the following code in your workbook
module:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In Me.Worksheets
With wkSht.PageSetup
.CenterFooter =
Format(ActiveWorkbook.BuiltinDocumentProperties _
("Last save time"),"DD.MM.YYYY")
End With
Next wkSht
End Sub
 
Back
Top