在RDLC报告上打印数据而不显示预览

时间:2020-08-25 14:35:47

标签: vb.net phpmyadmin rdlc

我正在处理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

结束课程`

0 个答案:

没有答案