如何在多臺打印機上打印水晶報告？

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