W
WembleyBear
Hi
I have a worksheet that prints out on several pages and I have a problem
setting the font size in the header. Each of the pages has different amounts
of information so I've used FitToPages 1x1 to ensure that each page fills as
much of the page as possible and I suspect this is where the problem is. I
want the header to print in 10 point font size regardless of the text size on
the rest of the page, but this is not working - a portion of my code for this
page is below. How can I get the header font size to be the same on each page
regardless?
Sub Print_Summary()
ActiveSheet.PageSetup.PrintArea = "$A$1:$N$37"
With ActiveSheet.PageSetup
.CenterHeader = "&10STOWMARKET BUDGET " & Range("O1").Value
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = "$A$39:$N$95"
With ActiveSheet.PageSetup
.CenterHeader = "&10STOWMARKET BUDGET " & Range("O1").Value
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Thanks
Martyn
Excel 2000, Windows Server 2003 over Citrix PS4
I have a worksheet that prints out on several pages and I have a problem
setting the font size in the header. Each of the pages has different amounts
of information so I've used FitToPages 1x1 to ensure that each page fills as
much of the page as possible and I suspect this is where the problem is. I
want the header to print in 10 point font size regardless of the text size on
the rest of the page, but this is not working - a portion of my code for this
page is below. How can I get the header font size to be the same on each page
regardless?
Sub Print_Summary()
ActiveSheet.PageSetup.PrintArea = "$A$1:$N$37"
With ActiveSheet.PageSetup
.CenterHeader = "&10STOWMARKET BUDGET " & Range("O1").Value
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = "$A$39:$N$95"
With ActiveSheet.PageSetup
.CenterHeader = "&10STOWMARKET BUDGET " & Range("O1").Value
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Thanks
Martyn
Excel 2000, Windows Server 2003 over Citrix PS4