I am trying to combine to things. I want to print the active sheet as two
pages and have it print duplex. I also want the header to only be on the
first page. I tried combining information and tried run a macro record to do
what I want. But I don't have it. This is the code I have
Sub Printing()
With ActiveSheet.PageSetup
.CenterHeader = "&""Arial,Bold""&12OXFORD AREA SENIOR CENTER"
.RightHeader = "MO. ___________ YR. ________"
ActiveSheet.PrintOut From:=1, To:=1
.CenterHeader = ""
.RightHeader = ""
ActiveSheet.PrintOut From:=2, To:=TotPages
.LeftMargin = Application.InchesToPoints(0.75)
.RightMargin = Application.InchesToPoints(0.25)
.TopMargin = Application.InchesToPoints(0.5)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0.25)
.FooterMargin = Application.InchesToPoints(0.5)
.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 = 80
.PrintErrors = xlPrintErrorsDisplayed
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
End With
End Sub

If anyone can help I would appreciate it.
--
cao