|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
ms0800
註冊時間: 2004-07-23 文章: 65
第 1 樓
|
發表於: 星期二 十月 13, 2015 10:20 am 文章主題: 請教 wp520 印不出來,請前輩大大幫忙解惑 |
|
|
第二段為何印不出來,謝謝
declare integer WPOpenPort in WP.DLL integer, string
declare integer WPSendPort in WP.DLL integer, string, integer
declare integer WPReadPort in WP.DLL integer, string @, integer
declare integer WPClosePort in WP.DLL integer
declare integer P20CutFom IN WP.DLL integer,integer
declare integer WpOpnCls IN WP.DLL integer
declare integer P20Prn IN WP.DLL integer,integer,integer,string
declare integer WpOpnCls IN WP.DLL integer
declare integer WPSendStr IN WP.DLL integer, string
XPORT = 1
&& 自動模式 --- 可以印出來
vok = WPOpnCls(XPORT)
vok = P20Prn(XPORT, 0, 1, "Test")
vok = P20CutFom(XPORT,0)
vok = WPOpnCls(0)
&& 取消自動模式
&& 下列範例 --- 印不出來
vok = WPOpenPort(XPORT, "9600,N,8,1")
if vok < 1
MessageBox("Can't open com port")
return 0
endif
vWrtLen = WPSendPort(1,chr(27)+"VB"+chr(13), 4)
if vWrtLen <> 4
MessageBox("Bad Send"+str(vWrtLen,3))
return 0
endif
vOk = WPClosePort(1) && 務必記得關閉, 否則就下次就不能用了 |
|
回頂端 |
|
|
spfrk
註冊時間: 2004-11-08 文章: 161
第 2 樓
|
發表於: 星期二 十月 13, 2015 10:46 pm 文章主題: |
|
|
vWrtLen = WPSendPort(1,chr(27)+"VB"+chr(13), 4)
vOk = WPClosePort(1) && 務必記得關閉, 否則就下次就不能用了
改成 vWrtLen = WPSendPort(XPORT,chr(27)+"VB"+chr(13), 4)
改成 vOk = WPClosePort(XPORT) && 務必記得關閉, 否則就下次就不能用了 |
|
回頂端 |
|
|
ms0800
註冊時間: 2004-07-23 文章: 65
第 3 樓
|
發表於: 星期三 十月 14, 2015 12:07 am 文章主題: |
|
|
spfrk 大大您好,感謝您的回答,不過 xport 本來就等於 1,有改跟沒改好像都一樣,我很納悶,為何會印不出來,而自動模式就可以印出來,還有能否請教 spfrk 大,目前用 自動模式好像是直接列印,也就是發票機正在列印,電腦是不能操作的,要印完發票,電腦才能動,如果要像windows driver 有緩衝列印,邊印發票,邊打電腦,我要如何做?謝謝 |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|