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的激活码来啊!

給你個打印函數吧
Public Sub LabelPrint(ByVal strLabelFile As String)
        Dim BarTenderApp As New BarTender.ApplicationClass
        BarTenderApp.Formats.Open(Application.StartupPath & "\" & strLabelFile)
        BarTenderApp.Formats.Item(0).PrintOut(True)
        BarTenderApp.Quit(BarTender.BtSaveOptions.btDoNotSaveChanges)
    End Sub
調用LabelPrint(format1.btw)

只有破解版的，沒正版的，打印一切OK

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

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

老大，你應該明白，BarTender有版本限制的，我就算給你一個BarTender.exe，版本不對，你也用不了啊！
我的版本是7.15的，大小30多M,帶破解文件

我的很快，連續打印的話，一分鐘大概100多張吧，如果一張一張打印的話（就是打印一次，調用一次BarTender）就要3到 5秒了，