一、运行regsvr32 QRMAKER.OCX
二、VB部件添加 QRMAKER.OCX
三、窗口添加一QRMAKER.OCX

With QRmaker1
    .ModelNo = 2
    .CellPitch = 5
    .CellUnit = 203
    .QuietZone = 0
    .InputData = "需要打印的内容"
    .Refresh
End With

