Font size
 

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.

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.

Thank you very much Ron.

"Ron de Bruin" wrote:

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.