You would need an event macro, for the workbook inquestion press Alt + F8,
to the left in the project pane find the workbook and double click
ThisWorkbook
and paste in the following
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet
.PageSetup.LeftFooter = "Document last saved on " & _
Format(ActiveWorkbook.BuiltinDocumentProperties("L ast Save Time"), _
"dd mmm yyyy hh:mm")
End With
End Sub
press Alt + Q and save the workbook, if you only want the date and time and
not last saved one remove
"Document last saved on " &
Regards,
Peo Sjoblom
"kacate" wrote:
I am trying to display the date the file was last saved in the footer field.
the defualt date code displays the date the file was printed. I would
appreciate any help with this.
|