View Single Post
  #3   Report Post  
Old January 31st 05, 10:11 PM
Peo Sjoblom
 
Posts: n/a
Default

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.