![VFP 愛用者社區 首頁](templates/subSilver/images/vfps.jpg) |
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
leohuang
註冊時間: 2003-08-19 文章: 3
第 1 樓
|
發表於: 星期四 十月 16, 2003 11:21 am 文章主題: 請幫忙看一下此程式(98可以用,2k XP不行用) |
|
|
請幫忙看一下此程式(98可以用,XP不行用)
*功能: 刪除所有印表佇列
**98可以用,XP不行用 ??? thanks
DECLARE INTEGER OpenPrinter IN Winspool.drv String , Integer @ , Integer
DECLARE INTEGER ClosePrinter IN Winspool.drv Integer
DECLARE INTEGER SetPrinter IN Winspool.drv Integer , Integer, Integer, Integer
j=APRINTERS(p1)
if j>0
for i=1 to j
LHANDLE=0
if OPENPRINTER(p1(i,1),@LHANDLE,0)<>0
= SETPRINTER(@LHANDLE,0,0,3)
= CLOSEPRINTER(@LHANDLE)
endif
endfor
endif |
|
回頂端 |
|
![](templates/subSilver/images/spacer.gif) |
leohuang
註冊時間: 2003-08-19 文章: 3
第 2 樓
|
發表於: 星期四 十月 16, 2003 11:24 am 文章主題: |
|
|
會不會是 SETPRINTER(@LHANDLE,0,0,3) 的問題? |
|
回頂端 |
|
![](templates/subSilver/images/spacer.gif) |
leohuang
註冊時間: 2003-08-19 文章: 3
第 3 樓
|
發表於: 星期五 十月 17, 2003 11:12 am 文章主題: |
|
|
自己花了不少時間找資料,問題已解決!!
#DEFINE PRINTER_ACCESS_ADMINISTER 4
#DEFINE PRINTER_ACCESS_USE 8
DECLARE INTEGER OpenPrinter IN Winspool.drv String , Integer @ , String
DECLARE INTEGER ClosePrinter IN Winspool.drv Integer
DECLARE INTEGER SetPrinter IN Winspool.drv Integer , Integer, Integer, Integer
j=APRINTERS(p1)
if j>0
for i=1 to j
LHANDLE=0
lcPrnDefaults = Repli(Chr(0), +;
Chr(PRINTER_ACCESS_ADMINISTER) + Repli(Chr(0),3)
if OPENPRINTER(p1(i,1),@LHANDLE, lcPrnDefaults)<>0
= SETPRINTER(@LHANDLE,0,0,3)
= CLOSEPRINTER(@LHANDLE)
endif
endfor
endif |
|
回頂端 |
|
![](templates/subSilver/images/spacer.gif) |
Erwin
註冊時間: 2003-03-28 文章: 97 來自: 台北
第 4 樓
|
發表於: 星期六 十月 18, 2003 11:52 am 文章主題: |
|
|
恭喜恭喜 |
|
回頂端 |
|
![](templates/subSilver/images/spacer.gif) |
garfield Site Admin
![](images/avatars/1721266997466e2d116a266.jpg)
註冊時間: 2003-01-30 文章: 2157
第 5 樓
|
發表於: 星期二 十月 21, 2003 12:18 pm 文章主題: |
|
|
leohuang 雖然你的問題是自己解決的, 但你還是無私的將經驗分享出來, 感謝你有這種分享的精神. _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. |
|
回頂端 |
|
![](templates/subSilver/images/spacer.gif) |
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|