How do I print sheet , with actual file save date in footer?
Very helpful tip thank you! For some reason having trouble getting the date
in the footer to auto refresh without rerunning the macro. Thank you.
"Gord Dibben" wrote:
Add this UDF and macro to your workbook.
Function DocProps(prop As String)
Application.Volatile
On Error GoTo err_value
DocProps = ActiveWorkbook.BuiltinDocumentProperties _
(prop)
Exit Function
err_value:
DocProps = CVErr(xlErrValue)
End Function
=DocProps("last author")
or
=DocProps("last save time")
or
-DocProps("creation date")
Sub PathInFooter()
ActiveSheet.PageSetup.RightFooter = DocProps("last save time")
End Sub
NOTE: the code could be included in a Before_Print routine.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.RightFooter = DocProps("last save time")
End Sub
Gord Dibben MS Excel MVP
On Fri, 30 Jun 2006 08:28:01 -0700, irfy wrote:
|