Dim btapp As BarTender.Application
Dim btformat As BarTender.Format
Dim btdb As BarTender.Database

btapp = CreateObject("bartender.application")
btapp.Visible = False

btformat = btapp.Formats.Open("d:\bartender\format1.btw")
btdb = btformat.Databases(1)
btformat.PrintOut
这段代码调用后会挂起来,打印不了.
请问谁有好的方法啊?

知道原因了,破解版的BarTender问题!正版的可以,谁给一个BarTender的激活码来啊!

好慢啊,用破解版的BarTender文件打印一次最少要等1分钟,用正版的BarTender文件一点就可以了,不知你哪里是不是这样!
如果不是,可以发你bartend.exe文件给我吗?谢谢
我的邮箱:qlong0728@

[[it] 本帖最后由 qlong0728 于 2008-4-16 13:09 编辑 [/it]]