VB.Net实现ReportViewer遍历发票列表单页打印求助

嘿，针对你需要在同一个ReportViewer里每页打印一张发票的需求，我给你整理了两种实用的解决方案，你可以根据自己的场景来选：

方法1：用报表分组快速实现单页发票（推荐，最省心） #

如果你的发票数据可以一次性整理成一个包含所有发票的数据集，这种方法最直接：

• 第一步：整理全量数据源
  把你的发票对象列表转换成一个DataTable，每条记录对应一张发票，包含发票号、客户信息、明细等所有需要展示的字段。
• 第二步：调整RDLC报表的分组设置
  打开你的报表设计器：
  1. 添加一个分组，分组依据选唯一标识发票的字段（比如发票ID），保证每个分组只对应一张发票。
  2. 右键分组 → 「分组属性」，在「分页」选项里勾选**“在组的前面添加分页符”**（或者后面，看你布局），这样每个发票组会自动单独占一页。
  3. 把发票的内容（抬头、明细、 footer）放在分组的页眉/页脚，或者直接放在主体区域，配合分页设置就能实现单页一张发票。
• 第三步：绑定数据预览/打印
  把全量DataTable绑定到LocalReport的数据源，刷新ReportViewer就行——预览时每页就是一张发票，打印也会自动按页输出。

方法2：循环渲染单个发票，合并后打印（适合需要单独处理每张发票的场景） #

如果每张发票的数据源需要单独生成（比如每张发票要跑不同的SQL），可以用这种逐个渲染再合并的方式：

• 第一步：确保报表是单发票模板
  你的RDLC报表要设计成只展示一张发票的布局，数据源对应单条发票记录的DataTable。
• 第二步：循环处理每个发票，收集渲染后的内容
  用代码遍历发票列表，逐个生成数据源、渲染报表，把每个发票的PDF字节流存起来：

  ' 存储所有发票的PDF字节流
  Dim allInvoicePdfs As New List(Of Byte())
  
  For Each singleInvoice In YourInvoiceList
      ' 1. 用你现有的方法生成当前发票的DataTable
      Dim invoiceDataTable As DataTable = YourExistingMethodToFillDataTable(singleInvoice)
      
      ' 2. 配置ReportViewer的LocalReport
      ReportViewer1.LocalReport.DataSources.Clear()
      ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("InvoiceDataSource", invoiceDataTable))
      ReportViewer1.LocalReport.ReportEmbeddedResource = "YourProjectNamespace.InvoiceTemplate.rdlc" ' 替换成你的报表路径
      
      ' 3. 渲染当前发票为PDF字节流
      Dim warnings As Warning() = Nothing
      Dim streamIds As String() = Nothing
      Dim mimeType As String = Nothing
      Dim encoding As String = Nothing
      Dim fileExtension As String = Nothing
  
      Dim pdfBytes As Byte() = ReportViewer1.LocalReport.Render(
          "PDF",
          Nothing,
          mimeType,
          encoding,
          fileExtension,
          streamIds,
          warnings
      )
      
      ' 4. 把当前发票的PDF加入列表
      allInvoicePdfs.Add(pdfBytes)
  Next
  

• 第三步：合并PDF并打印
  你可以用iTextSharp（.Net Framework兼容的第三方库）把所有发票的PDF合并成一个文件，再统一打印：

  Using mergedStream As New MemoryStream()
      Dim pdfDocument As New iTextSharp.text.Document()
      Dim pdfCopy As New iTextSharp.text.pdf.PdfCopy(pdfDocument, mergedStream)
      
      pdfDocument.Open()
      For Each pdfBytes In allInvoicePdfs
          Dim pdfReader As New iTextSharp.text.pdf.PdfReader(pdfBytes)
          pdfCopy.AddDocument(pdfReader)
          pdfReader.Close()
      Next
      pdfDocument.Close()
      
      ' 这里可以选择保存合并后的PDF，或者直接打印
      Dim printDialog As New PrintDialog()
      If printDialog.ShowDialog() = DialogResult.OK Then
          ' 你可以用PDF阅读器组件加载mergedStream并打印，或者直接调用系统打印API
          ' 比如用Process.Start打开合并后的PDF并触发打印，或者用专门的打印类处理
      End If
  End Using
  

几个关键注意点 #

• 不管用哪种方法，都要确保报表的页面设置和打印纸型匹配（比如A4），避免分页错位。
• 如果发票明细行较多，记得在报表表格属性里设置「允许跨页断行」，避免内容被截断。
• 方法1的分组字段一定要选唯一标识，保证每个分组只对应一张发票。

内容的提问来源于stack exchange，提问作者S. Stefano