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

brianlong

sancoz 发表于 2019-12-26 16:05
我附件做了个实例，你参考一下

在我的电脑上数据库就只有这几个属性  没有Filename  也没有SQLStatement  难道是版本的问题?  我的BT版本是10.1 SR4

brianlong

sancoz 发表于 2019-12-26 16:05
我附件做了个实例，你参考一下

如果在楼主的实例里的excel表里加一个字段  打印数量  按照这个字段来打印每条记录的数量  要怎么写呢

brianlong

sancoz 发表于 2019-12-26 16:05
我附件做了个实例，你参考一下

还真的跟bartender版本有关系   我装了BT11后就有这些属性了

brianlong

brianlong 发表于 2019-12-25 15:54
我昨天捣鼓了半天最后的解决方案是事先在BTW文件里连接好数据库excel文件,在通过VBA调出BTW文件直接打印, ...

回答一下我自己的问题,经过摸索,用我自己的方法BT10打印一行多列的时候,在数据库里建一个字段存每条记录的打印张数,连接好数据库,在打印里将打印数量也连接到数据库的字段,还是12行代码搞定

1. Sub 标签纸多列打印()
   
2.   Dim btApp As BarTender.Application
   
3.     Dim btFormat As BarTender.Format
   
4.     For Each wk In Workbooks
   
5.         If wk.Name = "多列数据库.xlsx" Then Workbooks("多列数据库.xlsx").Close True
   
6.     Next
   
7.     Set btApp = CreateObject("bartender.application")
   
8.     btApp.Visible = False
   
9.     Set btFormat = btApp.Formats.Open("E:\多列.btw")
   
10.     btFormat.PrintOut
    
11.     btFormat.Close btDoNotSaveChanges
    
12.     btApp.Quit
    
13. End Sub

复制代码

Tonyli123

请问Bartender在VBA中的 应用可以使用后期绑定吗？ 因为在Excel中好了VBA代码，在自己的电脑上可以使用，但别的电脑没有安装安装BarTender软件，如果使用前期绑定，软件一打开就会报错。 BarTender能否使用Dim btApp As Object ， Set btApp=createObject(BarTender.application)

Tonyli123

请问各位大神BarTender是否可以在VBA中使用后期绑定？ 因为文件在本地电脑上可以实现调用BarTender，但发给其他同事若没有安装BarTender软件，Excel文件会报错，如果不去安装BarTender如何来规避这样的报错也能？谢谢！

sancoz

Tonyli123 发表于 2022-4-8 14:07
请问Bartender在VBA中的 应用可以使用后期绑定吗？ 因为在Excel中好了VBA代码，在自己的电脑上可以使用，但 ...

后期绑定没试过，不过应该是可以的，但没安装BarTender应该是用不了的，因为这个程序本来就是依靠调用BarTender的功能来实现的

dingboy_VBA

关注一下，以前也研究过 Bartender里面使用VBA。

kiwihome

关闭时要另存一个新的模板名称，怎么使用呢?

sancoz

kiwihome 发表于 2022-6-25 14:21
关闭时要另存一个新的模板名称，怎么使用呢?

btFormat.SaveAs("c:\DemoAuto.btw", True)
不好意思，非常少上EH，有疑问请加我QQ咨询，谢谢。