如何在VB.NET中用ReportViewer一次性打印3份带特定页眉页脚的报表

核心思路 #

利用RDLC报表的参数化控制，通过同一个报表模板，动态传递标识参数（如报表联次）来切换页眉页脚内容，再循环执行3次报表绑定+打印操作，实现一次性输出3份差异化报表。

步骤1：修改RDLC报表模板，添加参数 #

1. 打开你的RDLC报表，右键空白区域 → 选择「报表参数」。
2. 添加一个名为ReportType的参数，类型设为整数，默认值可设为1。
3. 分别选中页眉、页脚的文本框，右键 → 「表达式」，输入判断逻辑控制显示内容：
   • 页眉示例（根据联次显示不同标题）：

     =Switch(Parameters!ReportType.Value=1, "客户留存报表 - 第一联", Parameters!ReportType.Value=2, "财务存档报表 - 第二联", Parameters!ReportType.Value=3, "业务备份报表 - 第三联")
     

   • 页脚示例（显示联次标识+打印时间）：

     =IIf(Parameters!ReportType.Value=1, "客户联", IIf(Parameters!ReportType.Value=2, "财务联", "业务联")) & " | 打印时间：" & Now()
     

步骤2：VB.NET代码实现 #

假设你已有基础的报表绑定代码，在此基础上修改为支持参数传递的版本，并实现批量打印：

1. 带参数的报表绑定方法

' 缓存报表数据（避免重复查询，提升效率）
Private _reportData As DataTable = Nothing

Private Sub BindReportByType(reportType As Integer)
    ' 清空原有数据源与参数
    ReportViewer1.LocalReport.DataSources.Clear()
    ReportViewer1.LocalReport.SetParameters(New ReportParameter() {})

    ' 设置报表参数（传递当前联次）
    Dim paramList As New List(Of ReportParameter)()
    paramList.Add(New ReportParameter("ReportType", reportType.ToString()))
    ReportViewer1.LocalReport.SetParameters(paramList)

    ' 绑定数据源（复用缓存的数据）
    Dim dataSource As New ReportDataSource()
    dataSource.Name = "DataSet1" ' 需与RDLC报表中的数据集名称一致
    dataSource.Value = _reportData
    ReportViewer1.LocalReport.DataSources.Add(dataSource)

    ' 指定报表路径
    ReportViewer1.LocalReport.ReportPath = "Reports/YourReport.rdlc"
    ' 刷新报表
    ReportViewer1.RefreshReport()
End Sub

2. 批量打印3份报表的方法

Private Sub PrintThreeReports()
    ' 提前获取报表数据（仅查询一次）
    _reportData = GetReportData() ' 替换为你实际获取数据的方法

    ' 循环打印3份不同联次的报表
    For reportType As Integer = 1 To 3
        ' 绑定对应联次的报表
        BindReportByType(reportType)

        ' 等待报表完全渲染，避免打印空白页
        While Not ReportViewer1.LocalReport.IsReadyForRendering
            Application.DoEvents()
        End While

        ' 方式1：弹出打印对话框，让用户选择打印机（推荐）
        Dim printDialog As New PrintDialog()
        printDialog.Document = ReportViewer1.PrintDocument
        If printDialog.ShowDialog() = DialogResult.OK Then
            ReportViewer1.PrintDialog()
        End If

        ' 方式2：直接使用默认打印机打印（无需用户确认）
        ' ReportViewer1.Print()
    Next
End Sub

3. 数据获取示例（替换为你的实际逻辑）

Private Function GetReportData() As DataTable
    ' 示例：从数据库查询数据
    Dim dt As New DataTable()
    Using conn As New SqlConnection("你的数据库连接字符串")
        Dim cmd As New SqlCommand("SELECT * FROM YourTable", conn)
        conn.Open()
        dt.Load(cmd.ExecuteReader())
    End Using
    Return dt
End Function

关键注意事项 #

• 确保ReportViewer控件的ProcessingMode设置为Local（本地模式），因为我们使用的是RDLC本地报表。
• 报表渲染等待逻辑必须加上，否则可能因为报表未加载完成导致打印空白页。
• 如果3份报表的数据不同，只需在循环内每次调用GetReportData()获取对应数据即可，无需缓存。

内容的提问来源于stack exchange，提问作者user22579796