Need code to change font size in custom footer?

[Barry Katcher]

I have the following macro which inserts the full path and file name in a footer:

Sub InsertPathInFooter
ActiveSheet.PageSetup.LeftFooter =
ActiveWorkbook.FullName
End Sub

What can I add to it to then change the font size from 12 to 9? I tried recording a macro for Page Setup/Custom Footer/Font icon, etc. It does change the font on the worksheet, but I don't see any line of code in the macro that does the change.

 

[lenze]

See my 2nd post at this thread

http://www.mrexcel.com/board/viewtopic.php?topic=13145&forum=2
This message was edited by lenze on 2002-08-26 09:01

 

[Barry Katcher]

Thanks, lenze. I added the following excerpt from your code:

With ActiveSheet.PageSetup.LeftFooter = "&""Ariel,Bold""&7"
End With

The macro ran without an error message, but nothing changed, neither font not font size nor bold. What am I missing?

 

[lenze]

Hi Barry:

Try this

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftFooter = "&""Arial,Bold""&7" & ActiveWorkbook.FullName
End With
End Sub

Note the spelling of ARIAL

 

[Barry Katcher]

Thanks a mill, lenze. I just changed "bold" to "regular" and it works perfectly. I'll also add it to my "save before closing" macro and to my "print" macro, in case I save the file to a different folder. Thanks again.