Print pages in reverse order

[ThomasOES]

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?

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

 

[DanteAmor]

Check if this helps you.

Sub RePrint2()

  'PRINT PREVIEW FOR CURRENT REPORT
  Dim IPages As Long, i As Long
      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
 
  IPages = ExecuteExcel4Macro("Get.Document(50)")
  For i = IPages To 1 Step -1
    Sheets("Report").PrintOut From:=i, To:=i
  Next
 
  Range("RePrOut").PrintPreview
  Call Show_LotQual_Ctrl
End Sub

 

[ThomasOES]

Check if this helps you.

Sub RePrint2()

  'PRINT PREVIEW FOR CURRENT REPORT
  Dim IPages As Long, i As Long
      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

  IPages = ExecuteExcel4Macro("Get.Document(50)")
  For i = IPages To 1 Step -1
    Sheets("Report").PrintOut From:=i, To:=i
  Next

  Range("RePrOut").PrintPreview
  Call Show_LotQual_Ctrl
End Sub

Dante,
The print area RePrOut is several pages. When I try your code, all the pages are printed to one sheet and it prints automatically. No preview. Then there is a print preview, and it prints correctly, but not in reverse order.
Tom

 

[DanteAmor]

Print preview cannot be viewed in reverse order.