如何使用 vb.net 在 sap crystal 报告中禁用打印预览?
How do I disable the print preview in sap crystal reports using vb.net?
我想打印收据而不显示打印预览window。是否可以在没有打印预览的情况下打印到连接到 pc 的默认打印机?
这是我当前的代码:
Private Sub BTPRINT_Click(sender As Object, e As EventArgs) Handles BTPRINT.Click
Dim dt As New DataTable
With dt
.Columns.Add("Articulo")
.Columns.Add("Cantidad")
.Columns.Add("Precio")
End With
For Each dgr As DataGridViewRow In Me.DataGridView1.Rows
dt.Rows.Add(dgr.Cells(0).Value, dgr.Cells(1).Value, dgr.Cells(2).Value)
Next
Dim reportdocument As CrystalDecisions.CrystalReports.Engine.ReportDocument
reportdocument = New CrystalReport2
reportdocument.SetDataSource(dt)
Form3.CrystalReportViewer1.ReportSource = reportdocument
Form3.ShowDialog()
Form3.Dispose()
End Sub
这非常简单。
我删除了:
Form3.ShowDialog()
Form3.Dispose()
并将其交换为:
reportdocument.PrintToPrinter(0, False, 1, 1)
我想打印收据而不显示打印预览window。是否可以在没有打印预览的情况下打印到连接到 pc 的默认打印机?
这是我当前的代码:
Private Sub BTPRINT_Click(sender As Object, e As EventArgs) Handles BTPRINT.Click
Dim dt As New DataTable
With dt
.Columns.Add("Articulo")
.Columns.Add("Cantidad")
.Columns.Add("Precio")
End With
For Each dgr As DataGridViewRow In Me.DataGridView1.Rows
dt.Rows.Add(dgr.Cells(0).Value, dgr.Cells(1).Value, dgr.Cells(2).Value)
Next
Dim reportdocument As CrystalDecisions.CrystalReports.Engine.ReportDocument
reportdocument = New CrystalReport2
reportdocument.SetDataSource(dt)
Form3.CrystalReportViewer1.ReportSource = reportdocument
Form3.ShowDialog()
Form3.Dispose()
End Sub
这非常简单。
我删除了:
Form3.ShowDialog()
Form3.Dispose()
并将其交换为:
reportdocument.PrintToPrinter(0, False, 1, 1)