Hello. I would like to print my report pages in reverse order so the first page of report is now at top of stack in print tray. Anything I can add to my page setup to do it?
Thanks for any help
Tom
VBA Code:
Sub RePrint2()
'PRINT PREVIEW FOR CURRENT REPORT
With Sheets("Report").PageSetup
.PrintArea = RePrOut
.LeftHeader = "&""Arial,bold""&10" _
& Range("instrument") & " " & Range("Program")
.CenterHeader = "&""Arial,bold""&16" _
& Range("ReportName") & " Lot Qualification"
.RightHeader = "&""Arial,Bold""&12" _
& Range("Operator") & " " _
& "&""Arial,Bold""&10&D"
.RightFooter = "&P" & "/" & "&N"
.LeftMargin = Application.InchesToPoints(0.75)
.RightMargin = Application.InchesToPoints(0.5)
.TopMargin = Application.InchesToPoints(1#)
.BottomMargin = Application.InchesToPoints(0.5)
.HeaderMargin = Application.InchesToPoints(0.3)
.CenterHorizontally = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperLetter
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Range("RePrOut").PrintPreview
Call Show_LotQual_Ctrl
End Sub
Thanks for any help
Tom