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" wrote in message
...
Is there any option to display the document properties in header or
footer.
thanks