用vb调用bartender并打印

  一、 情形：
1. 用vb创建了一个按钮，想实现点击按钮就自动调用指定位置的bartender模板（.btw格式）
2. 使用的bartender版本为专业版（Professional），但是点击按钮就报错或者不打印标签
3.  代码如下：

        Public Sub mybtw(path)
            Dim btApp As BarTender.Application
            Dim btFormat As BarTender.Format
            Set btApp = CreateObject("BarTender.Application")
            btApp.Visible = False
            Set btFormat = btApp.Formats.Open(path)
            btFormat.PrintOut
            btFormat.Close btDoNotSaveChanges
            btApp.Quit
        End Sub

二、 解决办法：
1. 安装企业版（automation）bartender软件
2. 激活SLS