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破解版（嘗試過試用版--未破解的）效果一樣
uj5u.com熱心網友回復：
一、你手工點擊打開 Bartender 程式、加載 箱標.btw、列印、出結果，整個程序是不是也需要1分鐘？二、你在每一步之間加 MsgBox 提示，到底是哪一步沒反應？
uj5u.com熱心網友回復：
第一個我已經驗證過，是沒有任何問題的，直接列印
第二個我沒有這樣做，但通過 任務管理器可以看到 bartender 是有進行 加載--卸載動作的。
uj5u.com熱心網友回復：
一、關鍵是耗時啊。二、那么就不是這段代碼的問題了。
Win7下關閉UAC、關閉殺毒軟體再試試。
uj5u.com熱心網友回復：
試了 ，沒有效果。。。。頭疼，一直不知道怎么回事 這個問題。。。
uj5u.com熱心網友回復：
可其他代碼不涉及列印部分啊。。無奈中，剛試了下破解版本的。。。更給力直接是不停的忙碌忙碌。。。。求大神給個解決方案啊 這個不解決掉 沒辦法繼續下去了。。。
uj5u.com熱心網友回復：
破解可能只破了手工打開部分，代碼呼叫部分還是需要驗證的。試用版說不定通過代碼呼叫是故意延時的呢。
uj5u.com熱心網友回復：
有沒辦法規避這個問題呢。。。真心無奈了。。
uj5u.com熱心網友回復：
賣正版，就可以讓供應商給你解決問題了。uj5u.com熱心網友回復：
更正：買正版uj5u.com熱心網友回復：
問題是我見過有人能夠通過破解版本實作完美列印功能。。。。可就是對方不肯指點如何實作，哎。。。所以求能夠通過破解版本實作列印功能啊。。。uj5u.com熱心網友回復：
最好去seagull網站上下載最新的相應驅動，再試試uj5u.com熱心網友回復：
弄個9.4企業自動化版試試。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/89611.html
上一篇：vb串口資料保存到mysql