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

qiulonggui

二维码批量打印时，比如打印10个，001、002、003、004、005、006、007、008、009、010。可以看到打印时的二维码是变化的，可是打印出来的二维码扫描出来都是001，大师们帮我看看，怎么修改下能处理这个问题。  
另外，当B10（注：B10中是来自第三方的数据）的值等于1的时候，就会执行自动打印。由于B10单元格中的值有是公式，循环给G6来赋值。这样有个问题，B10中的值为1的时间长短会导致有时多打，有时漏打。有没有其他好的方法来实现。

下面附上代码：


Sub 生成二维码()
Dim QRString As String
QRString = Sheet2.Range("a8") & Sheet2.Range("D8")
Sheet2.Select
Sheet2.QRmaker1.AutoRedraw = ArOn
Sheet2.QRmaker1.InputData = QRString
  Sheet2.QRmaker1.AutoRedraw = ArOn
  Sheet2.QRmaker1.Refresh
End Sub
Sub 打印二维码()
'Application.ScreenUpdating = False '关闭屏幕刷新
Dim X As Integer
For X = Range("g2") To Range("g3")
Sheet2.Range("D8") = Sheet1.Range("b" & X)
Call 生成二维码
Application.ScreenUpdating = True
With ActiveSheet.PageSetup
End With
ActiveSheet.PrintOut Copies:=1, Collate:=True
Application.Wait (Now + TimeValue("0:00:03"))
Next
End Sub
Sub Macro1()
Dim NewTime As Date
NewTime = Now + TimeValue("00:00:05")
Application.OnTime NewTime, "Macro2"
End Sub
Sub Macro2()
Sheet2.Range("G6").Value = Sheet2.Range("B10").Value
Call Macro1
End Sub

Private Sub Workbook_open()
Application.Wait (Now + TimeValue("0:00:05"))
Call Macro1
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
  r = Target.Row
  c = Target.Column
  n = Target.Value
   If r = 6 And c = 7 And n = 1 Then
    Call 打印二维码
    End If
End Sub
Private Sub QRmaker1_GotFocus()
End Sub





附上EXCEL和二维码插件，打开EXCEL时提示更新新链接时选否。


请高手问帮我看看优化优化，谢谢！

qiulonggui

我安装的是OFFICE 2010
密码是： SUPERMAN

qiulonggui

在线等，麻烦大家了

qiulonggui

帮忙看看吧，谢谢！

qiulonggui

高手们帮忙看看怎样能刷新后打印，谢谢

qiulonggui

哎，这么多天了，都没有帮忙回复的。

qiulonggui

又是等了几天，还是没人来帮忙

qiulonggui

版主可否帮帮忙看看，谢谢！

qiulonggui

隔几天，再来看下，还没帮忙。

crazy0qwer

qiulonggui 发表于 2016-10-17 10:05
隔几天，再来看下，还没帮忙。

因为大家都不喜欢装控件。

看到打印时二维码是变化的，扫描出来都是001. 那你得考虑下这个二维码插件是不是设置有问题。
aron 这种常量改为 1 看看。

另外，你可以手动调试，生成二维码后扫描看看对不对，如果不对那就检查二维码插件参数设置；如果是对的，再打印出来扫描看看。这样判断是生成问题还是打印问题。