关于水晶报表打印设置问题,急!

Question

大哥大姐,我用VB+水晶报表做个软件,打印报表的时候不能选择打印机,只能使用默认的打印机进行打印,我想能够在打印的时候即可以使用默认的打印机,也可以选取择打印机来打印.

Answer 1

Friend Sub LoSubPrint(ByVal dsDataSet As DataSetNEEAP110)
        Dim cr As CrystalDecisions.CrystalReports.Engine.ReportClass
        cr = New NEEAP110        Try
            cr.FileName = pstrCrystalReportPath & "\" & C_REPORTID
            cr.SetDataSource(dsDataSet.Tables("DT_CLPIMG_D"))
            cr.PrintOptions.PrinterName = ptPrint.strPrnPrinterName
            cr.PrintToPrinter(ptPr        Dim cr As CrystalDecisions.CrystalReports.Engine.ReportClass
用这个
他能取得所有你及其上面的大英机的
然后你自己选一个就可以了