VFP 愛用者社區

aforangel · 註冊時間: 2010-05-24 文章: 117 第 1 樓

..... 應該用什麼COMMAND去檢查電腦有否安裝'EPSON TM-U220 Receipt'

if .....
oldprinter=alltrim(set("Printer",2))
o_ws=createobject("WScript.Network")
o_ws.setdefaultprinter('EPSON TM-U220 Receipt')
endif

garfield · Site Admin 註冊時間: 2003-01-30 文章: 2160 第 2 樓

APRINTERS()

syntech · 發表於: 星期三十一月 24, 2010 1:16 pm 文章主題:

PRINTSTATUS( ) 或 SYS(13)

M$還有給一個範例呢!!
http://msdn.microsoft.com/en-us/library/9s5xyy27(VS.80).aspx

不過這招在vfp 無效.

XD

aforangel · 註冊時間: 2010-05-24 文章: 117 第 4 樓

[quote="garfield"]APRINTERS()[/quote]

謝謝 garfield 指導, 用APRINTERS解決了

if aprinters(myprinter) > 0
mrow = alen(myprinter,1)
mcol = alen(myprinter,2)
for nI = 1 to mrow
for nN = 1 to mcol
if alltrim(myprinter[nI,nN]) == "EPSON TM-U220 Receipt"
o_ws=createobject("WScript.Network")
o_ws.setdefaultprinter('EPSON TM-U220 Receipt')
endif
next nN
next ni
endif