View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
Marcelo Marcelo is offline
external usenet poster
 
Posts: 1,047
Default Can a Header start on the 2nd page in Excel?

hi,

just with VB.

copy this module (change to your header text)
print the first time, execute this code, print the other pages.

hth
regards from Brazil
Marcelo

******************************************
Sub Header()
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "your header here"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.787401575)
.RightMargin = Application.InchesToPoints(0.787401575)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.492125985)
.FooterMargin = Application.InchesToPoints(0.492125985)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With

End Sub
******************************************



"mindela85" escreveu:

I want to start a header on the 2nd page and not have it on the 1st. Is that
possible in Excel?