View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Sarah (OGI) Sarah (OGI) is offline
external usenet poster
 
Posts: 128
Default Same page setup across multiple sheets (Excel 2000)

I've entered the following code with the view to change the page setup
settings across all the selected worksheets. However, I'm only seeing the
settings on the first worksheet. Any ideas re if/how I can incorporate page
settings across the board without selecting individual sheets?

Thanks in advance

====================
Sheets(Array("PC (Chart)-NI-MONTH", "PC (Chart)-NI-YTD", "PC
(Chart)-NI-R12", _
"HH (Chart)-NI-MONTH", "HH (Chart)-NI-YTD", "HH (Chart)-NI-R12", _
"CV (Chart)-NI-MONTH", "CV (Chart)-NI-YTD", "CV
(Chart)-NI-R12")).Select
Sheets("PC (Chart)-NI-MONTH").Activate
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.748031496062992)
.RightMargin = Application.InchesToPoints(0.748031496062992)
.TopMargin = Application.InchesToPoints(0.590551181102362)
.BottomMargin = Application.InchesToPoints(0.590551181102362)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 73
End With
====================