VFP 愛用者社區

[ms0800]

第二段為何印不出來,謝謝

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]

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]

spfrk 大大您好,感謝您的回答,不過 xport 本來就等於 1,有改跟沒改好像都一樣,我很納悶,為何會印不出來,而自動模式就可以印出來,還有能否請教 spfrk 大,目前用 自動模式好像是直接列印,也就是發票機正在列印,電腦是不能操作的,要印完發票,電腦才能動,如果要像windows driver 有緩衝列印,邊印發票,邊打電腦,我要如何做?謝謝