再问：QRMaker二维码打印时无法刷新

ncow

如题问题，之前有其他人问过，但还没有解决方法。
QRMaker二维码打印是无法刷新？
https://club.excelhome.net/thread-1259169-1-1.html
(出处: ExcelHome技术论坛)

因现遇到同样问题，再次寻找解决办法。
问题是这样的，我做了个循环给每个机种根据特定数值生成二维码，每个机种二维码生成后就发送打印（即生成一个二维码后就打印，再生成另一个二维码），但最终的结果是所有打印出来的二维码都是第一个机种的二维码，程序执行完后，excel表的二维码是变更了的，显示的是最后一个机种的二维码。

可能有些人没有qrmaker的环境（32位OFFICE及注册qrmaker控件）无法测试，可以提供思路，我这边自行测试。

我尝试过以下方法都是不行：
1、执行打印命令前，再次刷新qr码，代码如下
    Sheets("检查表").QRmaker1.AutoRedraw = ArOn
   Sheets("检查表").QRmaker1.InputData = Sheets("检查表").Cells(8, 1).Value
   Sheets("检查表").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

2、调用workbook的beforeprint过程，对qr码进行操作，代码如下

   Private Sub Workbook_BeforePrint(Cancel As Boolean)
   Dim m
   For Each barcode In ActiveSheet.OLEObjects
    If LCase(barcode.Name) Like "qrmaker*" Then
        With barcode
        m = .Height
        .Height = m - 1
        .Height = m
        End With
    End If
   Next
  End Sub

3、把程序的Application.ScreenUpdating 设置为 true
4、使用代码暂停10秒再继续执行打印的代码（以为二维码更新需要时间）

以上4个方法试了，还是不行，结果还是打印出来的文件全部都是第一个机种的二维码。

目前试出来，只有通过使用代码的调试模式，在运行到打印的代码时暂停运行（在workbook的beforeprint过程中暂停也可以），再点继续运行，这样打印的二维码才会更新。
请教各位大神有没有解决的方法或提供解决的思路。

chengyunpan

我也尝试过很多方法，最后还得用纯代码解决，目前测试暂时没发现问题。
二维码条形码同理

ncow

感谢各位回复，最终也是使用纯代码二维码解决。