Printing the page properties as header

Is there any option to display the document properties in header or footer.
thanks

This prints the last saved time in the header.

Private Sub Workbook_BeforePrint(Cacel As Boolean)
With ActiveWorkbook
.ActiveSheet.PageSetup.LeftHeader = "Last saved on: " & _
Format(.BuiltinDocumentProperties("Last Save Time"), "dd mmm
yyyy")
End With
End Sub


goes in the ThisWorkbook code module

--

HTH

RP
(remove nothere from the email address if mailing direct)


"r_najafi" <[email protected]> wrote in message
news:[email protected]...
> Is there any option to display the document properties in header or
footer.
> thanks