Foxtable(狐表)用户栏目专家坐堂 → [求助]如何提高打印条码的速度?


  共有2481人关注过本帖树形打印复制链接

主题:[求助]如何提高打印条码的速度?

帅哥哟,离线,有人找我吗?
新福星
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1956 积分:15482 威望:0 精华:0 注册:2011/7/16 20:59:00
[求助]如何提高打印条码的速度?  发帖心情 Post By:2019/12/31 14:30:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20191231142655.png
图片点击可在新窗口打开查看

这是一段打印条码的程序. 测试大约5秒录才能打出一个.如何提高其打印速度?每次打印都先出来一个提示然后自动消失后才打印.这个提示能否取消?谢谢


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105948 积分:538809 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/31 14:35:00 [只看该作者]

试试在一个doc里面循环打印多个条码,而不是一个doc里打印一个。

提示暂时无法取消

 回到顶部
帅哥哟,离线,有人找我吗?
新福星
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1956 积分:15482 威望:0 精华:0 注册:2011/7/16 20:59:00
  发帖心情 Post By:2019/12/31 14:48:00 [只看该作者]

这个就是对应着一条记录打印一个条码

 回到顶部
帅哥哟,离线,有人找我吗?
WELOVEFOX
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:463 积分:3343 威望:0 精华:0 注册:2016/12/21 22:58:00
  发帖心情 Post By: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
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
WELOVEFOX
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:463 积分:3343 威望:0 精华:0 注册:2016/12/21 22:58:00
  发帖心情 Post By: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

 回到顶部