I am trying to print data on one sheet of paper. It will print on 9 sheets unless I change the print setting to print 9 pages on one sheet. Can I specify the sheets printed per page in the macro? What is the identifier I would use.
Range("$O$4:$Q$384").Select
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = "$O$4:$Q$384"
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlOverThenDown
.BlackAndWhite = False
.Zoom = 143
End With
ActiveSheet.PageSetup.PrintArea = "$O$4:$Q$384"
Selection.PrintOut Copies:=1, Collate:=True
Range("A1").Select
End Sub
Thanks
Bookmarks