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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Back
Top