我正在处理POS项目,并且可以打印发票,但是很遗憾,它需要手动单击RDLC Reportviewer上的“打印”按钮。谁能帮帮我吗。 这是我的代码。
`导入MySql.Data.MySqlClient 导入Microsoft.Reporting.WinForms 公共类frmReceiptPrint 私有Sub frmReceiptPrint_Load(作为对象发送,作为EventArgs发送)处理MyBase.Load
Me.ReportViewer1.RefreshReport()
End Sub
Sub loadBillReport()
Me.ReportViewer1.RefreshReport()
'Dim Billing = Admin.txtSbilling.Text
Dim dt As New DataTable
Using con As New MySqlConnection("server=localhost;userid=root;password=;database=goldbar")
con.Open()
Using cmd As New MySqlCommand("Select Product, Qty, Price, Sub from tbl_trans where ReceiptNo = '" & Cashier.lbReceipt.Text & "'", con)
Dim da As New MySqlDataAdapter
da.SelectCommand = cmd
da.Fill(dt)
End Using
End Using
With Me.ReportViewer1.LocalReport
.ReportPath = Application.StartupPath & "\Reports\rptReceipt.rdlc"
.DataSources.Clear()
.DataSources.Add(New Microsoft.Reporting.WinForms.ReportDataSource("DataSet1", dt))
End With
With Cashier
Dim pPetcha As New ReportParameter("pDate", .lbDate.Text)
Dim pOras As New ReportParameter("pTime", .lbTime.Text)
Dim receipt As New ReportParameter("pReceipt", .lbReceipt.Text)
Dim user As New ReportParameter("pUser", .lbUser.Text)
ReportViewer1.LocalReport.SetParameters(pPetcha)
ReportViewer1.LocalReport.SetParameters(pOras)
ReportViewer1.LocalReport.SetParameters(receipt)
ReportViewer1.LocalReport.SetParameters(user)
End With
With frmPayment
Dim Total As New ReportParameter("pTotal", .txtTotal.Text)
Dim Cash As New ReportParameter("pCash", .txtCash.Text)
Dim pChange As New ReportParameter("pChange", .txtChange.Text)
ReportViewer1.LocalReport.SetParameters(Total)
ReportViewer1.LocalReport.SetParameters(Cash)
ReportViewer1.LocalReport.SetParameters(pChange)
End With
ReportViewer1.SetDisplayMode(Microsoft.Reporting.WinForms.DisplayMode.PrintLayout)
'ReportViewer1.PrintDialog()
End Sub
结束课程`