Auto Path in Footer
Hello,
The folowing code will give you full path with font size 8
change &8 to deisired number to get another font size.
With ActiveSheet.PageSetup
.LeftFooter = "&8&Z&F"
End With
Abdul Salam
-----Original Message-----
I use the following code to enter the network path into
the footer of my worksheet
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter =
ActiveWorkbook.FullName
End Sub
How can I change the code so it does not use the default
font size? The default is currently 10 and I want the
path to be 8
Thank you
.
|