我帮你把最后一部分的语句顺序调换一下。你试一试
创新互联专注于准格尔网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供准格尔营销型网站建设，准格尔网站制作、准格尔网页设计、准格尔网站官网定制、小程序制作服务，打造准格尔网络公司原创品牌,更为您提供准格尔网站排名全网营销落地服务。
sub button1_click() '---执行打印
Dim pd As PrintDocument = New PrintDocument
pd.PrinterSettings = PrintDialog1.PrinterSettings
If _PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
for i=0 to 1 '这样可以两次截图
CaptureScreen() '--执行前面自定义函数截图
AddHandler pd.PrintPage, AddressOf Document_PrintPage
pd.Print()
Threading.Thread.sleep(100) ‘ 再加上一个间隔
next
end sub
btFormat.IdenticalCopiesOfLabel = nCount
其中的nCount是打印的份数，通过对IdenticalCopiesOfLabel传递打印的数字就可以，变量定义分别如下：
If btApp Is Nothing Then btApp = New BarTender.Application
' btApp.Visible = True
btFormat = btApp.Formats.Open(Application.StartupPath + "\cBarcode.btw", False, "")，希望 你有帮助！
你用循环来打印，传递一定数据时候，然后在电脑上再设置延时，如果打印机的内存比较小，电脑速度很快，传递的数据太多，打印机很快就内存溢出了
有个PrintDocument控件,可以实现打印。。。
MSDN原话：
使用 PrintDocument 组件
涉及 PrintDocument 组件的两种主要情况是：
简单的打印作业，如打印单个文本文件。在这种情况下，应将 PrintDocument 组件添加到 Windows 窗体，然后在 PrintPage 事件处理程序中添加打印文件的编程逻辑。 该编程逻辑应以使用 Print 方法打印文档结束。
此方法向打印机发送一个 Graphics 对象，该对象包含在 PrintPageEventArgs 类的 Graphics 属性中。
有关如何使用 PrintDocument 组件打印文本文档的示例，请参见
如何：打印 Windows 窗体中的多页文本文件。
更为复杂的打印作业，如想要重新使用已编写的打印逻辑的情况。
在这种情况下，应从 PrintDocument 组件派生一个新组件，并重写
（请参见 Visual Basic 的 重写或 C# 的 重写） PrintPage 事件。
将 PrintDocument 组件添加到窗体后，它出现在 Windows 窗体设计器底部的栏中
可以把数据导出到EXCEL，然后使用EXCEL进一步处理后使用。
也可以做成vb报表(VB自带有)。
先设置报表格式，打印时向报表传递数据就可以了。
