Home |
Search |
Today's Posts |
#1
|
|||
|
|||
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. |
#2
|
|||
|
|||
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. |
#3
|
|||
|
|||
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. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Font size prints same size regardless of how I set it in Excel | Excel Discussion (Misc queries) | |||
Font size for in-cell drop-down list | Excel Worksheet Functions | |||
How to change the default font and size of "comments"? | Excel Discussion (Misc queries) | |||
Changing font size in a list box | Excel Discussion (Misc queries) | |||
Change datalabel font size for all chartobjects in a row | Charts and Charting in Excel |