重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
我帮你把最后一部分的语句顺序调换一下。你试一试
创新互联专注于准格尔网站建设服务及定制,我们拥有丰富的企业做网站经验。 热诚为您提供准格尔营销型网站建设,准格尔网站制作、准格尔网页设计、准格尔网站官网定制、小程序制作服务,打造准格尔网络公司原创品牌,更为您提供准格尔网站排名全网营销落地服务。
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自带有)。
先设置报表格式,打印时向报表传递数据就可以了。