Tom,
Here is a procedure in where You find the wanted property:
<PRE>
Private Sub<FONT color=blue> Workbook</FONT>_BeforePrint(Cancel<FONT color=blue> As</FONT> <FONT color=blue>Boolean</FONT>)
<FONT color=blue>Dim </FONT>dSkapad<FONT color=blue> As</FONT><FONT color=blue> Date</FONT>
<FONT color=blue>Dim </FONT>dSparadSenast<FONT color=blue> As</FONT><FONT color=blue> Date</FONT>
<FONT color=blue>Dim </FONT>sForfattare<FONT color=blue> As</FONT><FONT color=blue> String</FONT>
<FONT color=blue>Dim </FONT>sForetag<FONT color=blue> As</FONT><FONT color=blue> String</FONT>
<FONT color=blue>Dim </FONT>sHyperLank<FONT color=blue> As</FONT><FONT color=blue> String</FONT>
<FONT color=blue>Dim </FONT>sKommentarer<FONT color=blue> As</FONT><FONT color=blue> String</FONT>
dSkapad = ThisWorkbook.BuiltinDocumentProperties("Creation<FONT color=blue> Date</FONT>")
dSparadSenast = ThisWorkbook.BuiltinDocumentProperties("Last Save Time")
sForfattare = ThisWorkbook.BuiltinDocumentProperties("Author")
sForetag = ThisWorkbook.BuiltinDocumentProperties("Company")
sHyperLank = ThisWorkbook.BuiltinDocumentProperties("Hyperlink Base")
sKommentarer = ThisWorkbook.BuiltinDocumentProperties("Comments")
<FONT color=blue>With </FONT>ActiveSheet.PageSetup
.LeftHeader = "Skapad: " & dSkapad
.RightHeader = "Skapad av: " & sForfattare & "/" & sForetag
.LeftFooter = "Sparad senast: " & dSparadSenast
.RightFooter = sKommentarer & vbCr & sHyperLank
<FONT color=blue>End With</FONT>
<FONT color=blue>End Sub</FONT>
</PRE>
It´s in swedish and I´m too lazy to convert it to chines :wink:
Kind regards,
Dennis