Vb.net 自动填充标签并打印多个

我有一个信息表，对应于我想打印在通用标签上的详细信息。假设标签上有姓名、姓氏、员工编号，我的表格有10行，表示有10名员工。我将打开对话框页面进行打印，我没有选择打印机，在选择打印机后，我希望它从每行中获取保存的值，并打印一个带有每个员工信息的标签

目前，我只编写了常规打印和创建信息表的程序。我只是想知道打印循环将如何进行，我认为应该是这样的：

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 
    PrintDialog1.Document = PrintDocument1

    PrintDialog1.PrinterSettings = PrintDocument1.PrinterSettings



    If PrintDialog1.ShowDialog = DialogResult.OK Then

        PrintDocument1.DefaultPageSettings.Landscape = True
        For Each row In Table1
            Employeename.Text = NameRow
            Employeelastname.text = LastNameRow
            EnployeeNumber.text = EmployeeNumberCell
            PrintDocument1.Print()
        Next

    End If
End Sub

---

顾名思义，

PrintDocument

的

PrintPage

事件打印页面。如果要打印多个页面，则需要多次引发该事件。当有更多页面要打印时，可以通过在事件处理程序中将

e.HasMorePages

属性设置为

True

来实现。下面是一个从

数据表

每页打印一条记录的简单示例：

”要打印的数据。
作为数据表的私有表
'要打印的行的索引。
私有行索引为整数
私有子按钮1\u单击（发送者作为对象，e作为事件参数）处理按钮1。单击
'从第一行开始打印。
行索引=0
'打印数据。
PrintDocument1.Print（）
端接头
私有子PrintDocument1\u PrintPage（发送者作为对象，e作为Printing.PrintPageEventArgs）处理PrintDocument1.PrintPage
'获取当前行。
Dim row=表。行（行索引）
'打印当前行。
e、 图形.抽绳（行.字段（字符串）（“SomeColumn”）、Me.字体、画笔.黑色、50、50）
行索引+=1
'当且仅当有另一行要打印时，才打印另一页。
e、 HasMorePages=rowIndex

---

您可以在

PrintPage

事件处理程序中修改实际的打印代码，以在所需的任何布局中打印所需的任何数据。如果要打印多个值，则需要多次调用

e.Graphics.DrawX

方法。如果所有的文本都是要打印的，那么所有的调用都是

DrawString

，但是您有

DrawImage

用于打印图像和

DrawRectangle

等用于打印形状。

在物理打印机中，是每页一个贴纸还是多个贴纸？如果有多个，每页有多少个？不，这是每页一个标签，它只是多页一个标签每个电话的问题是，当你使用私有表作为数据表时，我怎么能让这是我的数据表的最新版本？从技术上讲，我使用不同的函数从数据库检索数据，但每次打印时，它都会显示以前保存的datatable值！你在问变量是如何工作的。变量始终包含您最后分配给它的值。只需将希望打印的内容分配给它即可。如果有一个方法填充新的

数据表

，请将该新的

数据表

分配给变量。这是任何语言编程的绝对基础之一，不应该在这里解释。好吧，我明白，这不是我真正的问题，但好吧。