二维码批量打印时，不刷新

LOSERKING · 发表于 2018-8-27 15:49

我也碰到你说的问题，你的解决了吗？

songlijiao · 发表于 2019-1-21 08:07

听说，用vba改变下条码的大小，可以解决这个问题，我还没试过，方法就是高度+1，再高度-1。我也遇到了这个问题，单个打印没问题，循环打印显示是更新的，条码打印却不更新。

dby1972 · 发表于 2019-4-15 16:17

看下是不是插件注册的问题，注册时要用管理员权限注册。方法是把regsvr32 QRmaker.ocx写在一个记事本中，把这个记事本改为bat文件，用管理员权限运行。我试过用管理员权限注册插件打印出来的条码扫描出来是正常的。

wangvvei · 发表于 2019-4-15 20:00

dby1972 发表于 2019-4-15 16:17
看下是不是插件注册的问题，注册时要用管理员权限注册。方法是把regsvr32 QRmaker.ocx写在一个记事本中，把 ...

好像也不是这个原因，插件的反应比较慢，打印完了才刷新二维码。这种情况我遇到过，我就让程序等上1秒或者0.5秒就好了。
不过干脆用纯Excel表格就行了，不用插件。
Excel生成二维码标签-无插件.rar (258.36 KB, 下载次数: 120)

2019-4-15 19:59 上传
点击文件名下载附件

baesesq · 发表于 2019-9-21 11:24

songlijiao 发表于 2019-1-21 08:07
听说，用vba改变下条码的大小，可以解决这个问题，我还没试过，方法就是高度+1，再高度-1。我也遇到了这个 ...

.BarCodeCtrl1.Height = 42 + 1 '条码高
.BarCodeCtrl1.Height = 42 - 1 '条码高
我试过了，这方法可以，问题解决，非常感谢

crazyxia8088 · 发表于 2019-10-8 11:59

同样问题，还在调整中，搞不定啊

chumiao123 · 发表于 2020-2-27 12:05

For Each barcode In ActiveSheet.OLEObjects
      If LCase(barcode.Name) Like "barcodectrl*" Then
         With barcode
            m = .Height
            .Height = m - 1
            .Height = m
         End With
      End If
Next
可以自动检测单元格内容的变化并更新对应的条码
测试过，好用的

YANWEI82123300 · 发表于 2020-2-27 12:32

chumiao123 发表于 2020-2-27 12:05
For Each barcode In ActiveSheet.OLEObjects
If LCase(barcode.Name) Like "barcodectrl*" Then ...

chumiao123老师您的这句代码放到哪里呀！请告诉一下，谢谢

dongdonggege · 发表于 2024-9-25 14:43

wangvvei 发表于 2019-4-15 20:00
好像也不是这个原因，插件的反应比较慢，打印完了才刷新二维码。这种情况我遇到过，我就让程序等上1秒或 ...

wvew_made函数在哪里？找不到，难道隐藏了？运行程序怎么就死？

		自动登录	找回密码
密码			免费注册

[求助] 二维码批量打印时，不刷新