P
Phatchef24
Hi,
I'm having problems with group multiple worksheets together an
giving them all the same Header & Footer. My current code looks lik
this:
Sheets(Array("Aggregate FY", "Aggregate Q1", "Aggregate Q2", "Aggregat
Q3", "Aggregate Q4", _
"Unit FY", "Unit Q1", "Unit Q2", "Unit Q3", "Unit Q4")).Select
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "" & Chr(10) & "&""Arial,Bold""CONFIDENTIA
-- NOT FOR DISTRIBUTION"
.RightHeader = "&A"
.LeftFooter = "&D"
.CenterFooter = "&P of &N"
.RightFooter = "&F"
.LeftMargin = Application.InchesToPoints(0.75)
.RightMargin = Application.InchesToPoints(0.75)
.TopMargin = Application.InchesToPoints(1)
.BottomMargin = Application.InchesToPoints(1)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
End With
So far the only sheet that is recieving the correct Header is the firs
sheet, "Aggregate FY". Any ideas what I'm missing or a better way to g
about this?
Thanks
I'm having problems with group multiple worksheets together an
giving them all the same Header & Footer. My current code looks lik
this:
Sheets(Array("Aggregate FY", "Aggregate Q1", "Aggregate Q2", "Aggregat
Q3", "Aggregate Q4", _
"Unit FY", "Unit Q1", "Unit Q2", "Unit Q3", "Unit Q4")).Select
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "" & Chr(10) & "&""Arial,Bold""CONFIDENTIA
-- NOT FOR DISTRIBUTION"
.RightHeader = "&A"
.LeftFooter = "&D"
.CenterFooter = "&P of &N"
.RightFooter = "&F"
.LeftMargin = Application.InchesToPoints(0.75)
.RightMargin = Application.InchesToPoints(0.75)
.TopMargin = Application.InchesToPoints(1)
.BottomMargin = Application.InchesToPoints(1)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
End With
So far the only sheet that is recieving the correct Header is the firs
sheet, "Aggregate FY". Any ideas what I'm missing or a better way to g
about this?
Thanks