在VB.NET中帮助打印部分 [英] Help in VB.NET in printing section

问题描述

我为学校建立一个软件和一个一个一个打印罚款凭证。我想打印所有类别的所有费用凭证一键点击哪个学生在Datagridview表中加载。



我尝试了什么：



我不知道怎么做我在google上搜索很多但是失败

i build a software for school and a fee voucher printing fine one by one .i want to Print all fee voucher of selected class in One Click which student is loaded in Datagridview table.

What I have tried:

I dont know how to do it i search alot on google but failed

推荐答案

首先阅读 PrintDocument Class（System.Drawing.Printing）| Microsoft Docs [ ^ ] - 执行实际打印。你打印的内容取决于你 - 我们不能具体，因为你没有给我们任何细节，我们根本无法访问你的数据！

Start by reading up on the PrintDocument Class (System.Drawing.Printing) | Microsoft Docs[^] - that does the actual printing. What you print is up to you - we can't be specific because you don't give us any detail and we have no access to your data at all!

<pre>
    Public Function itemQillareport() As DataSet
        Dim dsData As DataSet
        Try

            'dsData = DalHelper.ExecuteDataset(m_ConString, CommandType.Text, "select * from PrintChallan where Reg_num='" & StidentFee.TextBox14.Text & "' and fee_Month='" & StidentFee.ComboBox1.Text & "' and Fea_year='" & StidentFee.TextBox4.Text & "'")
            dsData = DalHelper.ExecuteDataset(m_ConString, CommandType.Text, "SELECT dbo.PrintChallan.*, dbo.School_Info.* FROM dbo.PrintChallan CROSS JOIN dbo.School_Info where PrintChallan.Reg_num='" & StidentFee.TextBox14.Text & "' and PrintChallan.fee_Month='" & StidentFee.ComboBox1.Text & "' and PrintChallan.Fea_year='" & StidentFee.TextBox4.Text & "' and School_Info.Id='1'")
        Catch ex As Exception
            Return Nothing
        End Try
        Return dsData

    End Function
    
    Private Sub Employe_Led_report_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
       

        ReportViewer1.LocalReport.ReportEmbeddedResource = "KTC.Report36.rdlc"
            Dim rdsNumberofReferrals As New Microsoft.Reporting.WinForms.ReportDataSource()

            rdsNumberofReferrals.Name = "DataSet1"
            Dim dsBrands As DataSet = itemQillareport()
            rdsNumberofReferrals.Value = dsBrands.Tables(0)
            ReportViewer1.LocalReport.DataSources.Add(rdsNumberofReferrals)
            ReportViewer1.Update()
        Dim newPageSettings As New System.Drawing.Printing.PageSettings
        newPageSettings.PaperSize = New Printing.PaperSize("Custom", 820, 1150)

        newPageSettings.Landscape = True
        newPageSettings.Margins = New System.Drawing.Printing.Margins(10, 10, 10, 10)
        ReportViewer1.SetPageSettings(newPageSettings)
            Me.ReportViewer1.RefreshReport()



    End Sub

这篇关于在VB.NET中帮助打印部分的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！