Header on first page and two sided printing

S

srctr

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.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Printing Macro 6
Formula in Header 2
Creating Pivot Table with Macro using Multiple Sheets 0
Setting excel to landscape and setting print area from access 2
Print area - selection 4
Header and Footer Macro 1
Visual Basic Print to PDF 6
Page setup error after moving sheet tabs 3

Top