直接用不好使，所以引用了Image1.Picture这个组件

老师，帮看看这句代码并没有生成.jpg   的文件……是什么原因呢？
 QRmaker1.CreateQrMetaFile hDC, "D:\条码记录\" + Text1.Text + "(" & Split(Now(), " ")(0) + ")" + ".jpg", 2  

老师，看看12楼上的代码为何不会输出.jpg的图片文件

F8一步步测试看下，控件注册啥的都弄好了没？

win7 32位的系统，已将控件放到system32中并注册了，现在的问题是代码在控件上显示出二维码，但并不能将图片导出……

代码看下...

代码就是用的你发的代码..
--------------------------------------
rivate Sub Text1_Change()
    If Len(Text1.Text) = 13 Then
        With QRmaker1
            .ModelNo = 2    '二维码模式
            .EccLevel = H    '纠错等级
            .CellPitch = 14   '二维码大小
            .CellUnit = 203
            .QuietZone = 0
            .Rotate = D0    '图片角度
            .InputData = Text1.Text    '二维码内容
            .Refresh    '刷新
        End With
        Open "D:\条码记录\扫描记录.txt" For Append As #1    'Output新建，Append追加
        t = Text1.Text & "   " & Now()
        Print #1, t
        Close #1
        QRmaker1.CreateQrMetaFile hDC, "D:\条码记录\" + Text1.Text + "(" & Split(Now(), " ")(0) + ")" + ".jpg", 2    '记录保存
        Image1.Picture = LoadPicture("D:\条码记录\" + Text1.Text + "(" & Split(Now(), " ")(0) + ")" + ".jpg", vbLPLarge, vbLPColor)
        Form1.PrintForm    '打印
        Text1.Text = ""
        Image1.Picture = LoadPicture("")
    End If
End Sub

先在D盘建一个条码扫描的文件夹试一下

请看12楼的图片

QRmaker1.CreateQrMetaFile hDC, "D:\条码记录\" + Text1.Text + "(" + Split(Now(), " ")(0) + ")" + ".jpg", 2