- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何提高打印条码的速度? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=144848)
-- 发布时间：2019/12/31 14:30:00
-- [求助]如何提高打印条码的速度?
此主题相关图片如下：qq图片20191231142655.png
这是一段打印条码的程序. 测试大约5秒录才能打出一个.如何提高其打印速度?每次打印都先出来一个提示然后自动消失后才打印.这个提示能否取消?谢谢
-- 发布时间：2019/12/31 14:35:00
--
试试在一个doc里面循环打印多个条码，而不是一个doc里打印一个。
提示暂时无法取消
-- 发布时间：2019/12/31 14:48:00
--
这个就是对应着一条记录打印一个条码
-- 发布时间：2019/12/31 14:50:00
--
1. 一次打印多张的方法，给你一个参考，我做的是设置打印某一窗口，手工选择打印数量及手工选择打印机型号。
Dim Val As Integer = 1
If InputValue(Val, "批量打印", "请输入要打印的份数:") Then
For i As Integer = 1 To val
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Dim pr As WinForm.ComboBox = e.Form.Controls("ComboBox2") \'自己做一个COMBOBOX做为打印机择选型号
Doc.PrinterName = pr.Value
\'Doc.PrinterName = "ZDesigner GK888t" \'这个固定的型号已经作废
doc.AutoRotate = False
doc.Print()
\'doc.Preview() \'不预览，直接打印
Next
End If
2. 条码打印速度，一般在标签打印机里面调的。
此主题相关图片如下：snipaste_2019-12-31_14-49-42.jpg
-- 发布时间：2019/12/31 14:52:00
--
获取打印机型号主要代码
Dim dyj As WinForm.ComboBox = e.Form.Controls("ComboBox2")
For Each p As String In InstalledPrinters
dyj.Items.Add(p)
Next