vba Header and Footer size when scaling pages

[dantheman9]

I'm using the following code to auto scale pages for printing to stop tables overlaping on to other pages;

With ActiveSheet.PageSetup
        .LeftHeader = "&G"
        .CenterHeader = "&""Bold""&14&U" & eventname & Chr(10) & eventname1 & Chr(10) & Chr(10) & "&G"
        .RightHeader = "&G"
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .CenterHorizontally = True
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = False

All works ok, but the zooming in to fit to one page wide also edits the size of the Header, is there any way to keep the header size as is and only reduce the size of the content within the each page?

I have changing the Zoom option but with no effect, can't think of any other way to do it!

 

[dantheman9]

...sorry its ok found and options to not sacle the header with the page!

.ScaleDocWithHeaderFooter = True/False