CRYSTAL REPORT 的问题？

超级赛亚人2

嗨，我用vb 时遇到的问题。。

For Each ChildPrinter In Printers
        If UCase(ChildPrinter.DeviceName) = UCase(PrinterDriverName) Then
            Set Printer = ChildPrinter
            Debug.Print Printer.DeviceName
            Debug.Print Printer.Port
            Debug.Print Printer.DriverName
            crxreport.SelectPrinter childprinter.drivername, ChildPrinter.DeviceName, childprinter.port
            
'            CheckPrinter "", "", ChildPrinter.DeviceName
'            crxreport.PrinterSetup 0
'            crxreport.p
            Exit For
        End If
    Next ChildPrinter
   
   
    Debug.Print crxreport.PrinterName
    Debug.Print crxreport.PortName
    Debug.Print crxreport.DriverName
   
    crxreport.Database.SetDataSource RSDetail, 3, 1
   
   crxreport.PrintOut False, 1

我 crxreport.printout 时他给我error message:
-2147189423 Error Starting Print Job. Please check your printer or network connection.


请问我的code 那里出现问题？