Setting font size in footer

pnocero · May 27th 2004

I am using a macro that asks for the date to put in a footer, as follows:

datestring = InputBox("Enter date to be printed in footers." & Chr(13) & _
"Leave blank if current date is to be used.", _
"Set Up Footer Date")
If Not datestring = "" Then
Sheets("Pricing Summary").Select
ActiveSheet.PageSetup.RightFooter = datestring
End If

How do I also specify the font (Arial) and font size (10) to use for this text?

Thanks.

Maqbool · May 27th 2004

Here is the code:

With Sheets("Pricing Summary").PageSetup
.RightFooter = "&""Arial,Italic""&8Report Date:" & datestring
end with

Hope this will help you.

Maqbool

Iridium · May 27th 2004

Try using the macro recorder to generate the necessary code. I tried it and got the following (not using your example exactly):

Code

With ActiveSheet.PageSetup
     .LeftFooter = "&""Arial Black,Bold""&10hello"
End With

HTH

pnocero · May 28th 2004

I finally figured it out, using:

Sheets("Worksheet Name").Select
ActiveSheet.PageSetup.RightFooter = "&""Arial""&12" & datestring

Setting font size in footer

Participate now!

Share