vba 调用bartender 打印 条码

谁能给一个EXCEL VBA代码 调用bartender 打印 条码
网上找了一个不能用
Sub Print_carton()
Dim file_path As String
Dim btApp As BarTender.Application
Dim btFormat As BarTender.Format
file_path = "C:\Lab\aa.btw"
'----------------------------------------------------------------------
'Order bartender print lab as templet
'----------------------------------------------------------------------
Set btApp = CreateObject("bartender.application")
btApp.Visible = False
Set btFormat = btApp.Formats.Open(file_path)
'---------------------------------------------------------------------
' Assignment a value to variable.
'---------------------------------------------------------------------
btFormat.SetNamedSubStringValue "Var1", Cells(2, 1)
btFormat.SetNamedSubStringValue "Var2", Cells(3, 1)
' Implement print
btFormat.PrintOut
btFormat.Close btDoNotSaveChanges
btApp.Quit
End Sub

以上代码Dim btApp As BarTender.Application 就报错 用户 定义 类型未定义
解决追加100分

相关了解……