I have two Crystal Reports XI reports that I want to print from a VB2008 program I use the following code:

 

Me.taDataInfo.Fill(Me.TDS_DATA.DataInfo)
Me.taDiskInfo.Fill(Me.TDS_DATA.DiskInfo)
Dim RPT As New ReportDocument

 

With RPT
  Try
   .FileName = String.Format("{0}\{1}.rpt", My.Application.Info.DirectoryPath, strReportName)
   .SetDataSource(TDS_DATA)
   .PrintOptions.PrinterDuplex = CrystalDecisions.Shared.PrinterDuplex.Horizontal
   .PrintToPrinter(1, False, 0, 0)
   sslMain.StatusBarLabelMessage("Report Sent to Printer.", False)
Catch ex As Exception
  MessageBox.Show(ex.ToString)
  sslMain.StatusBarLabelMessage("Report Failed.", True)
 End Try
End With

Only the 3rd (last) page of the report prints.

How do I get all three pages to print duplex. My HP L7780 supports duplex printing.

If I comment out the PrinterDuplex line, all 3 pages print out correctly (one sided).

How do I get it to print duplex?