VB Code:
  1. Dim crxReport As CRAXDRT.Report

  2.  
  3.    crxReport.PrinterSetup (0)    '<--- Brings up the Printer Dialog Box before the report.

  4.    'View the report.

  5.    CRViewer91.ReportSource = crxReport

  6.    CRViewer91.ViewReport