如何像 Microsoft Office Publisher 一样在一次打印中打印身份证集合？

Question

在我的应用程序中，我有一个用于创建员工身份证的表格。一切都很好，但是通过将所有选定的身份证添加到页面来打印它时我遇到了问题。就像在 1 页中打印大约 4 张横向卡片非常容易，这可以使用打印文档方法以及 rdlc 报告来完成。我使用 printdocument 的 PrintPage 事件来完成这项工作和 rdlc 报告的参数。但两者都限制为每次打印 4 张卡片。但我想要的是假设有 20 名新员工/员工需要身份证，我想一次性打印出来。

我尝试了什么？

打印文档方法

将所有 ID 卡添加到 DataGridView，然后在 PrintDocument 的 PrintPage 事件中使用此代码

Dim i as integer = 25
For j as Integer = 0 To dgv.rowcount - 1
   e.Graphics.DrawImage(dgv.rows(j).Cells(0).Value, 25, i, 375, 236)
   i += 241
Next
i = 25

但是每次打印最多只能打印 4 张卡片。我尝试使用e.HasMorePages = True，但无法获得我想要的东西。

RDLC 报告方法

创建一个 DataSet DS1，并添加一个列名与我的 datagridview 列名相同的表，然后使用 DataSet DS1 创建一个 rdlc 报告，并在其中添加一个表，其中只有图像列可见。

但不幸的是，这是本例中最大的失败，因为它甚至无法显示单张图片。所以我可以选择在报表上创建图片并使用 Parameter 方法从表单中获取值，这再次限制了我每次打印超过 4 张卡片。

Answer 1

这是一个在多个页面上打印项目列表的示例。在本例中，每页执行四次。

Const ITEMS_PER_PAGE As Integer = 4

Private items As List(Of Object)
Private itemIndex As Integer

Private Sub PrintDocument1_BeginPrint(sender As Object, e As PrintEventArgs) Handles PrintDocument1.BeginPrint
    'Start from the beginning of the list.
    itemIndex = 0
End Sub

Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    For i = 1 To ITEMS_PER_PAGE
        If itemIndex = items.Count Then
            'We're done.
            Exit For
        End If

        Dim item = items(itemIndex)

        'Print item here.

        itemIndex += 1
    Next

    'Print another page if and only if we are not at the end of the list.
    e.HasMorePages = itemIndex < items.Count
End Sub

请注意，itemIndex 在调用 PrintPage 事件处理程序之间保持其值。