printing the saved date/time

R

Roger

is the a field code or something to print the save date in a footer
i.e there is a field code for the current date in excel &[date], but i would like it to be the last date it was saved

thanks in advance!!!
 
R

Ron de Bruin

You need VBA to do this

If you copy this in the ThisWorkbook module it will print the Last Save Time
in the RightFooter of every sheet you print

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In ThisWorkbook.Worksheets
wkSht.PageSetup.RightFooter = "&8Last Saved : " & _
ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
Next wkSht
End Sub
 
F

Frank Kabel

Hi
put the following code in your workbook module (not in a standard
module):

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In Me.Worksheets
With wkSht.PageSetup
.CenterFooter = Me.BuiltinDocumentProperties("Last save time")
End With
Next wkSht
End Sub
 
Top