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()

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

1 个答案: