See
http://www.rondebruin.nl/print.htm#Saved
Use
"&7last modified: "
--
Regards Ron de Bruin
http://www.rondebruin.nl
"geza" wrote in message ...
Hi everyone,
I finally managed to resolve the 'last modified' issue in a worksheet.
However, no matter what I tried, I was unable to modify the font size of the
footer that prints when the file is changed - it always has font size 10.
Here is the code:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Worksheets("Sheet1").PageSetup.RightFooter = "last modified: " &
ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
End Sub
It appears obvious to me that the font size is driven by
'BuiltinDocumentProperties' (as opposed to Page Setup, which I tried and it
didn't work) but how would I tweak the code to make it, for instance, size 7?
Thank you,
Geza.