|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
回答一下我自己的问题,经过摸索,用我自己的方法BT10打印一行多列的时候,在数据库里建一个字段存每条记录的打印张数,连接好数据库,在打印里将打印数量也连接到数据库的字段,还是12行代码搞定- Sub 标签纸多列打印()
- Dim btApp As BarTender.Application
- Dim btFormat As BarTender.Format
- For Each wk In Workbooks
- If wk.Name = "多列数据库.xlsx" Then Workbooks("多列数据库.xlsx").Close True
- Next
- Set btApp = CreateObject("bartender.application")
- btApp.Visible = False
- Set btFormat = btApp.Formats.Open("E:\多列.btw")
- btFormat.PrintOut
- btFormat.Close btDoNotSaveChanges
- btApp.Quit
- End Sub
复制代码 |
|