引用BarTender条码打印软件控件问题

qlong0728 发布于 2008-04-16 08:42， 10559 次点击

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
这段代码调用后会挂起来,打印不了.
请问谁有好的方法啊?

7 回复

qlong07282008-04-16 09:49

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

fairy42008-04-16 09:50

給你個打印函數吧
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)

fairy42008-04-16 09:51

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

qlong07282008-04-16 12:48

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

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

fairy42008-04-17 10:37

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

fairy42008-04-17 10:41

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

LI7772008-08-30 10:50

急急急！！！！！！

BarTender Format 修改条形码时数据源选的时屏幕数据但输入后点确定出来的却不是我想要的这是怎么回事