Path, file and sheet name in the footer in 8 pt font

[COlivianus]

Hello,

I asked the wrong question before. I have a macro that places the path, file and sheet name into the footer.

ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.FullName & "&A "

However, I need the path, file and sheet name reduced to 8 pt font. Is there anyway to change the macro so that it places the path, file and sheet name into the footer in 8 pt font. As it is now I run the macro, then have to modify the footer manually. The & Chr(8) and "&8" do not seem to work.

Thanks

[dk]

Hello,

I asked the wrong question before. I have a macro that places the path, file and sheet name into the footer.

ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.FullName & "\&A "

However, I need the path, file and sheet name reduced to 8 pt font. Is there anyway to change the macro so that it places the path, file and sheet name into the footer in 8 pt font. As it is now I run the macro, then have to modify the footer manually. The & Chr(8) and "&8" do not seem to work.

Thanks

Hi,

How about:-

ActiveSheet.PageSetup.LeftFooter = "&8C" & ActiveWorkbook.FullName & "\&A "

I got the &8C bit just by recording a macro and looking at the code it produced.

HTH,
Dan

[COlivianus]

Thanks

[Dave Patton]

Put the following in ThisWorkbook sheet
and edit it to suit your preferences

Private Sub Workbook_BeforePrint(Cancel As Boolean)
' This sub includes all parts of FileNameInFooter
' but it puts the same information on all Sheets in the Workbook.
'
Dim sht As Worksheet
Dim sDate As String
For Each sht In ThisWorkbook.Sheets
sDate = Format((Now), "ddd d mmm yyyy hh:mm ")
sht.PageSetup.LeftFooter = "&8" & "" & ActiveWorkbook.FullName _
& "|" & "&A" & " " & sDate & " " & "Your Name"
Next sht
End Sub

[ This Message was edited by: Dave Patton on 2002-05-13 15:55 ]