急求助 VB编程Bartender7.75打印问题

[darkcowboy]

Public btapp As BarTender.Application '定义bartender
Public btformat As BarTender.Format
Dim btdb As BarTender.Databases

Set btapp = CreateObject("bartender.application") '加载bartender
btapp.Visible = False

Set btformat = btapp.Formats.Open(App.Path & "\箱标.btw", False, "") ’加载BTW
Set btdb = btformat.Databases("文本文件 1") ‘文本数据库名字

btformat.IdenticalCopiesOfLabel = 1
btformat.PrintOut False, False
btformat.Close btDoNotSaveChanges
btapp.Quit (BarTender.BtSaveOptions.btDoNotSaveChanges) '********卸载bartender

上面是我个人用VB编的，可是在本机（连接的局域网打印机）打印可以进行，但需要等大约1分钟才能出结果（打印机上这期间显示需要手动控制）---这是第一个问题。第二个问题是打包软件为EXE换到需要用的电脑上却顿住没有反应了，类似死机状态。
求助是不是我哪里编写错误。

编程用打印机为局域网打印机--三星
须用电脑连接打印机为斑马打印机

用的WIN7 32位系统 bartender用的是7.75破解版（尝试过试用版--未破解的）效果一样

[Tiger_Zhao]

一、关键是耗时啊。
二、那么就不是这段代码的问题了。
Win7下关闭UAC、关闭杀毒软件再试试。

[darkcowboy]

引用 3 楼 Tiger_Zhao 的回复:

一、关键是耗时啊。 二、那么就不是这段代码的问题了。 Win7下关闭UAC、关闭杀毒软件再试试。

试了 ，没有效果。。。。头疼，一直不知道怎么回事 这个问题。。。

[darkcowboy]

可其他代码不涉及打印部分啊。。无奈中，刚试了下破解版本的。。。更给力直接是不停的忙碌忙碌。。。。求大神给个解决方案啊 这个不解决掉 没办法继续下去了。。。

[Tiger_Zhao]

破解可能只破了手工打开部分，代码调用部分还是需要验证的。
试用版说不定通过代码调用是故意延时的呢。

[Tiger_Zhao]

一、你手工点击打开 Bartender 程序、加载 箱标.btw、打印、出结果，整个过程是不是也需要1分钟？
二、你在每一步之间加 MsgBox 提示，到底是哪一步没反应？

[darkcowboy]

引用 1 楼 Tiger_Zhao 的回复:

一、你手工点击打开 Bartender 程序、加载 箱标.btw、打印、出结果，整个过程是不是也需要1分钟？ 二、你在每一步之间加 MsgBox 提示，到底是哪一步没反应？

第一个我已经验证过，是没有任何问题的，直接打印 第二个我没有这样做，但通过 任务管理器可以看到 bartender 是有进行 加载--卸载动作的。

[darkcowboy]

引用 6 楼 Tiger_Zhao 的回复:

破解可能只破了手工打开部分，代码调用部分还是需要验证的。 试用版说不定通过代码调用是故意延时的呢。

有没办法规避这个问题呢。。。真心无奈了。。

[Tiger_Zhao]

卖正版，就可以让供应商给你解决问题了。

[Tiger_Zhao]

更正：买正版

[darkcowboy]

问题是我见过有人能够通过破解版本实现完美打印功能。。。。可就是对方不肯指点如何实现，哎。。。所以求能够通过破解版本实现打印功能啊。。。

[zjyylj]

最好去seagull网站上下载最新的相应驱动，再试试

[a56817911]

弄个9.4企业自动化版试试。