Add Font to Header/Footer macro
 

Hello,
I use the following macro to print file location in my spreadsheets. I am
partial however to wanting a specific font, Comic Sans MS, Regualr style, 8
or 9 size.

I can't seem to figure out how to put this in the macro and have it work.

Thank you

Add Font to Header/Footer macro
 

I'm sorry I forgot to paste the macro.


'
' Path_Name Macro
' Prints full file path & name on page header
'
'
Sub Print_path()
ActiveSheet.PageSetup.CenterFooter = ActiveWorkbook.FullName
End Sub


"JHL" wrote:

Hello,
I use the following macro to print file location in my spreadsheets. I am
partial however to wanting a specific font, Comic Sans MS, Regualr style, 8
or 9 size.

I can't seem to figure out how to put this in the macro and have it work.

Thank you

Add Font to Header/Footer macro
 

Try

ActiveSheet.PageSetup.CenterFooter = "&""Arial
Black,Bold"&""ActiveWorkbook.FullName


"JHL" wrote:

I'm sorry I forgot to paste the macro.


'
' Path_Name Macro
' Prints full file path & name on page header
'
'
Sub Print_path()
ActiveSheet.PageSetup.CenterFooter = ActiveWorkbook.FullName
End Sub


"JHL" wrote:

Hello,
I use the following macro to print file location in my spreadsheets. I am
partial however to wanting a specific font, Comic Sans MS, Regualr style, 8
or 9 size.

I can't seem to figure out how to put this in the macro and have it work.

Thank you

Add Font to Header/Footer macro
 

Umm.. but put in the fonts you want.. sorry about that.

"JHL" wrote:

I'm sorry I forgot to paste the macro.


'
' Path_Name Macro
' Prints full file path & name on page header
'
'
Sub Print_path()
ActiveSheet.PageSetup.CenterFooter = ActiveWorkbook.FullName
End Sub


"JHL" wrote:

Hello,
I use the following macro to print file location in my spreadsheets. I am
partial however to wanting a specific font, Comic Sans MS, Regualr style, 8
or 9 size.

I can't seem to figure out how to put this in the macro and have it work.

Thank you

Add Font to Header/Footer macro
 

I copied and pasted your reply, but there is a coding error. Should there be
some brackets omitted or closing the quote marks or omitting them around the
activeworkbook statement?

"Sean Timmons" wrote:

Try

ActiveSheet.PageSetup.CenterFooter = "&""Arial
Black,Bold"&""ActiveWorkbook.FullName


"JHL" wrote:

I'm sorry I forgot to paste the macro.


'
' Path_Name Macro
' Prints full file path & name on page header
'
'
Sub Print_path()
ActiveSheet.PageSetup.CenterFooter = ActiveWorkbook.FullName
End Sub


"JHL" wrote:

Hello,
I use the following macro to print file location in my spreadsheets. I am
partial however to wanting a specific font, Comic Sans MS, Regualr style, 8
or 9 size.

I can't seem to figure out how to put this in the macro and have it work.

Thank you