关于BarTender在VBA中调用的方法讨论

sancoz

在网上和几个QQ群里面问了一圈，似乎知道这方面内容的人非常少，BarTender是一个非常强大的工具，用好了可以很好的提高生产力，在此我先首先把已经了解到的内容发布一下，另外还一些未知的内容希望各路高人能指点一下。

使用环境：
BarTender 2016 R1 Enterprise Automation(已激活)
Win7 64位
Office 2013 64位

材料：
1份已经做好格式的BTW模板，内含四个文本对象，其中两个设置了关联的数据库字段
1个引用了BarTender 11的XLSM文件

做法一：
目前已知的做法是不需要对BTW模板进行数据库设置，只需要设计好模板的样式，其后直接把数据指定到对应的文本对像上打印即可，具体代码如下：
Sub PrintBTW()

Dim file_path As String
Dim btApp As New BarTender.Application
Dim btFormat As New BarTender.Format

'BTW模板路径
file_path = "D:\Test.btw"

'设置BarTender是否可见，如果需要预览打印就必须设置为True
btApp.Visible = False

'使用BarTender打开BTW模板
Set btFormat = btApp.Formats.Open(file_path)

'SetNamedSubStringValue是对模板中的文本对像进行数据赋值，Var1、Var2就是文本对象的名称，Cells(x,x)就是引用的数据，可以使用for循环来进行赋值，每赋值一次就打印一次
btFormat.SetNamedSubStringValue "Var1", Cells(2, 1)
btFormat.SetNamedSubStringValue "Var2", Cells(3, 1)

'打印模板
btFormat.PrintOut

'关闭模板并且不保存
btFormat.Close btDoNotSaveChanges

’退出BarTender
btApp.Quit
End Sub



目前探索的内容：
BarTender自带的帮助文档不完整，所以很多资料缺失，没能很快地找到正确答案。
目前我正在尝试对BTW模板的数据库及文本对象在VBA中进行设置，

目前是现在已知的内容：

'定义BarTender的Database对象
Dim btDB As New BarTender.Database

'设置模板数据库对象（如果有）
Set btDB = btFormat.Databases.GetDatabase(1)


'设置文件形式的数据库路径，如EXCEL、ACCRESS、TEXT等
btDB.Filename = "数据文件路径"

'设备服务器形式的数据库路径（例如SQL SERVER）
btDB.Server = "数据库路径"
btDB.User = "用户名"
btDB.Password = "密码"
btDB.SQLStatement = "SQL命令"


未知的内容：
如何设置文本对应关联的数据库字段
（当然还有很多仍未知如何设置，只是还没用到）

欢迎各位高手赐教，另外我的QQ号是24823610，有兴趣的朋友也可以加我一起研究

dgenson

两列的标签如何设置打印

sancoz

dgenson 发表于 2019-11-21 14:47
两列的标签如何设置打印

不明白你的意思。。有例子吗？

vbee

软件自带连接EXCEL功能，难道不香吗？

dgenson

sancoz 发表于 2019-11-23 13:35
不明白你的意思。。有例子吗？

Sub test() '前期绑定
    'VBE 工具栏-工具-引用 BarTender 10.1
    'C:\Program Files (x86)\Seagull\BarTender Suite\BarTend.exe
    Dim file_path As String
    Dim btApp As BarTender.Application
    Dim btFormat As BarTender.Format
    Dim inti As Long, arr, i%, dic As Object
    file_path = ThisWorkbook.Path & "\333.btw"
    Set btApp = New BarTender.Application
    btApp.Visible = True
    Set btFormat = btApp.Formats.Open(file_path)
    Set dic = CreateObject("scripting.dictionary")
    With Sheet2
        arr = .Range("A1:R" & .Range("G65536").End(xlUp).Row)
        For i = 2 To UBound(arr)
            If Not dic.exists(arr(i, 8)) Then
                dic(arr(i, 8)) = ""
                btFormat.SetNamedSubStringValue "VAR1", arr(i, 2)
                btFormat.SetNamedSubStringValue "VAR2", arr(i, 17)
                btFormat.SetNamedSubStringValue "VAR3", arr(i, 8)
                btFormat.SetNamedSubStringValue "VAR4", arr(i, 5)
                btFormat.SetNamedSubStringValue "VAR5", arr(i, 1)
                btFormat.SetNamedSubStringValue "VAR6", arr(i, 7)
                btFormat.SetNamedSubStringValue "VAR7", arr(i, 18)
                btFormat.PrintSetup.IdenticalCopiesOfLabel = arr(i, 18)
                btFormat.PrintOut
            End If
        Next
    End With
    btFormat.Close btDoNotSaveChanges
    btApp.Quit
    Set btFormat = Nothing
    Set btApp = Nothing

End Sub
比如说这段代码可以打印出标签来，循环一次打印一个，打印机就会走一行，如果我有100个标签每个打印一张，但是标签是双排的纸正常打印完只要50行就行了，但是实际运行时就会每一行只会打印一列有一列会空着要打100行很浪费纸，这情况怎么解决。有没办法实现类似于先写入缓存后一次性输出打印的方法。

dgenson

vbee 发表于 2019-11-23 13:55
软件自带连接EXCEL功能，难道不香吗？

那是因为你没有碰到这样的场境。就像我们公司打印这个只有我会，其他同事都不会，但是他们经常有打印的需求，我要做成vba后他们只要点按一个按键后就直接去打印机那拿 标签就好，就不用每次都要等我去给他们打印

sancoz

dgenson 发表于 2019-11-25 14:29
Sub test() '前期绑定
    'VBE 工具栏-工具-引用 BarTender 10.1
    'C:\Program Files (x86)\Seagul ...

这个不相关哦，即使是多列的纸，你只要设置好模板就行了，估计你是模板没有正确设置

sancoz

dgenson 发表于 2019-11-25 14:29
Sub test() '前期绑定
    'VBE 工具栏-工具-引用 BarTender 10.1
    'C:\Program Files (x86)\Seagul ...

哦，我明白了，你用的方法就是我一开始的时候看标准教程所使用的方法，的确是，这种方法只能一行一行的打印的，像这种多行数据话，你需要使用我上面提到的方法，先对模板设置好要使用的数据库，然后每次打印前再设置查询条件，最后打印出来就可以了。以下是一个实例：

1. btApp.Visible = True
   
2. 
   
3. Set btFormat = btApp.Formats.Open(LabelPath)
   
4. Set btDB = btFormat.Databases.GetDatabase(1)
   
5. 
   
6. btDB.SQLStatement = "SELECT `字段1`, '字段2' FROM `数据库` WHERE  条件1
   
7. 
   
8. btFormat.PrintPreview.ShowDialog
   
9. 
   
10. btFormat.Close btDoNotSaveChanges
    
11. 
    
12. btApp.Quit

复制代码

shaokui123

dgenson 发表于 2019-11-25 14:32
那是因为你没有碰到这样的场境。就像我们公司打印这个只有我会，其他同事都不会，但是他们经常有打印的需 ...

microsoft barcode control这个不可以吗

dgenson

shaokui123 发表于 2019-12-14 10:51
microsoft barcode control这个不可以吗

不是打二维码，是打产品标签，几百种商品的各种内容的标签