vba 調用Bartender 打印 條碼

kanndy

現在熱門的條碼打印軟件一個是Bartender，一個是codesoft , 用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

希望對你有幫助！

liuboru

请问高手,我想打印一个文件
file_path = "C:\Users\Erick\Desktop\1\MODULE.btw" 但是报错

代码是这个

Sub Print_carton()
Dim file_path As String
Dim btApp As BarTender.Application
Dim btFormat As BarTender.Format
file_path = "C:\Users\Erick\Desktop\1\MODULE.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

kanndy

liuboru 发表于 2013-5-17 09:52
请问高手,我想打印一个文件
file_path = "C:\Users\Erick\Desktop\1\MODULE.btw" 但是报错

你需要在模板中設置參數的值，在代碼中你需要修改Var1和Var2 的值，
報什麽樣的錯？截圖看一下。

supwork

怎么Dim btApp As BarTender.Application 就报错，用户 定义 类型未定义

rain_zhao

这些天一直想用这种方式打印barcode，终于搞定了，以上说法基本正确，就是需要bartender的版本和加载资源上注意下！

城市过客2015

请问高手：btFormat.SetNamedSubStringValue语句是什么含义？var1\var2值修改的依据是什么？谢谢！

kiwihome

如何修改圖片，由外部圖片更新