学习型 ASP/PHP/ASP.NET 主机 30元/年全能 ASP/PHP/ASP.NET 主机,支持月付专业 MSSQL 数据库空间,支持月付专业 MySQL 数据库空间,支持月付
发新话题
打印

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

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

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

TOP

知道原因了,破解版的BarTender问题!正版的可以,谁给一个BarTender的激活码来啊!
程序人员写程序,又拿程序换酒钱。 奔驰宝马贵者趣,公交自行程序员。 不见满街漂亮妹,哪个归得程序员。

TOP

給你個打印函數吧
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)
昨天,我卖身给学业,所以今天我无所事事;而明天,我将嫁身于生计……

TOP

只有破解版的,沒正版的,打印一切OK
昨天,我卖身给学业,所以今天我无所事事;而明天,我将嫁身于生计……

TOP

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

[ 本帖最后由 qlong0728 于 2008-4-16 13:09 编辑 ]
程序人员写程序,又拿程序换酒钱。 奔驰宝马贵者趣,公交自行程序员。 不见满街漂亮妹,哪个归得程序员。

TOP

老大,你應該明白,BarTender有版本限制的,我就算給你一個BarTender.exe,版本不對,你也用不了啊!
我的版本是7.15的,大小30多M,帶破解文件
昨天,我卖身给学业,所以今天我无所事事;而明天,我将嫁身于生计……

TOP

我的很快,連續打印的話,一分鐘大概100多張吧,如果一張一張打印的話(就是打印一次,調用一次BarTender)就要3到 5秒了,
昨天,我卖身给学业,所以今天我无所事事;而明天,我将嫁身于生计……

TOP

发新话题