how to fix default font size for header & footer while print even zoom size changing

[saravanan.srinivasan]

Hi Sir
I have more than twently sheets in my excel file. Each sheets are different zoom size for printing purpose.
The header & footer font size is varying while printing.

How to fix default header & footer font size while printing (whether zoom size 100% or 20% etc)

The header footer font size should not change while print for all the pages

This is my coding. I dont know whether is correct or not. Please can u send correct coding.

Sub ZoomFontSize()
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.LeftMargin = Application.InchesToPoints(0.47244094488189)
.RightMargin = Application.InchesToPoints(0.196850393700787)
.TopMargin = Application.InchesToPoints(0.15748031496063)
.BottomMargin = Application.InchesToPoints(0.15748031496063)
.HeaderMargin = Application.InchesToPoints(0.15748031496063)
.FooterMargin = Application.InchesToPoints(0.15748031496063)
End With
Select Case ActiveSheet.PageSetup.Zoom
Case 1 To 100
ActiveSheet.PageSetup.LeftHeader = "&""Arial""&12" & "Worksheet: &A"
ActiveSheet.PageSetup.LeftFooter = "&""Arial""&12" & ThisWorkbook.FullName & Chr(10) & " " & Chr(10) & " "
ActiveSheet.PageSetup.CenterFooter = "&""Arial""&12" & "Page &P of &N"
ActiveSheet.PageSetup.RightFooter = "&""Arial""&12" & "Print Date: &D"
End Select
End Sub



Thanks & Rgrds
Saravanan Srinivasan