在浏览器中通过bartender，调用条码打印机的active控件代码的实现

 系统中需要在浏览器，直接调用条码打印机，打印出产品条码。

 

 现实中的条码打印机，品种繁多，很难在一个程序中实现， 于是我们用已经支持所有条码打印机的bartender软件

 

调用它的api ，来实现在浏览器中打印条码。

 

下面是 代码实现：

 

Private Sub UserControl_Initialize()
'On Error Resume Next
Dim app1 As BarTender.Application
    Set app1 = CreateObject("BarTender.Application")
      app1.Quit
     
    
    
     If Err.Number <> 0 Then
        MsgBox ("您还没有安装bartender,请点击《条码打印说明》中的下载链接下载安装。")
     End If
     Err.Clear
    
     'Dim fso As Object
     'Set fso = CreateObject("scripting.filesystemobject")
    
     Dim fso As