如何在多台打印机上打印水晶报表？

Question

我有一个 vb.net 应用程序，它有不同的水晶报告。我想将这些报告打印到打印机，而无需在报告查看器中打开，并且我想在两台打印机上打印这些报告，其中一台通过 USB 电缆安装在我的电脑上，另一台是网络打印机。对于网络打印机，如果需要，我可以为应用程序定义一个 IP 或任何本地网络地址..

Answer 1

嗨，首先你应该命名这些打印机

        strSQL = "your select statement"
        Dim crptDV As New ReportDocument()
        Dim da As New SqlDataAdapter(strSQL, SqlCon)
        Dim ds As New DataSet
        da.Fill(ds)
        If ds.Tables(0).Rows.Count = 0 Then
            Exit Sub
        End If
        Dim path As String //Report Path
        crptDV.Load(path & "\reports\ReportName.rpt")
        End If

        crptDV.PrintOptions.PrinterName = PrinterName1
        crptDV.PrintToPrinter(1, True, 0, 0)

        crptDV.PrintOptions.PrinterName = PrinterName2
        crptDV.PrintToPrinter(1, True, 0, 0)
        crptDV.Close()
        crptDV.Dispose()

Answer 2

不起作用，始终在默认打印机上打印