bartender的api帮助_在浏览器中通过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 New Scripting.FileSystemObject

If fso.FileExists("c:\sun.btw") = True Then

path = "c:\sunsky1.btw"

Else

If fso.FileExists("d:\sun.btw") = True Then

path = "d:\sun.btw"

Else

O