|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
sthuang66
註冊時間: 2014-04-27 文章: 176
第 1 樓
|
發表於: 星期五 七月 09, 2021 12:19 am 文章主題: VFP利用WORD列印文件時印表機設定 |
|
|
遵從網路上各位大的建議 在列印輸出時利用word 或EXCEL來處理會較美觀又簡單!而非VFP的FRX!!
我的CODE如下
WAIT "WORD程式"+CHR(13)+"開啟中"+CHR(13)+"利用WORD列印" WINDOW AT 20,80 NOWAIT
OWRD=CREATEOBJECT("WORD.APPLICATION")
OWRD.DOCUMENTS.OPEN("&DIR\TEMP.DOCX")
*OWRD.ACTIVEDOCUMENT.PRINTPREVIEW
OWRD.ACTIVEDOCUMENT.PRINTOUT
OWRD.ACTIVEDOCUMENT.CLOSE
OWRD.APPLICATION.QUIT
WAIT CLEAR
--------------------------------------------------------------------------------
大部分我就是直接 透過word就直接印出!並不需要預覽!!所以*PRINTPREVIEW
最近因為多裝一台印表機!所以會出現錯誤訊息!只好把PREVIEW功能開啟!後面那段就保留變成如下!
WAIT "WORD程式"+CHR(13)+"開啟中"+CHR(13)+"利用WORD列印" WINDOW AT 20,80 NOWAIT
OWRD=CREATEOBJECT("WORD.APPLICATION")
OWRD.DOCUMENTS.OPEN("&DIR\TEMP.DOCX")
OWRD.ACTIVEDOCUMENT.PRINTPREVIEW
然後選擇印表機列印!!
我的問題是請教VFP是否有什麼指令可以加上!!讓程式直接選電腦本身預設的印表機去印!!不用人工去預覽那步驟選印表機
謝謝各位高手不吝指教 |
|
回頂端 |
|
|
syntech
註冊時間: 2003-05-16 文章: 4227 來自: Taipei,Taiwan
第 2 樓
|
發表於: 星期五 七月 09, 2021 9:37 am 文章主題: |
|
|
是這個意思嗎?
代碼: |
* 要列印輸出的印表機
xPRT_DEV = "EPSON AL-C1750N"
* 取得 Windows default 印表機名稱
cDefaultPrint = SET("Printer", 2)
* 修改 Windows default 印表機 為指定印表機
WshNetWork = CREATEOBJECT("Wscript.NetWork")
WshNetWork.SetDefaultPrinter(xPRT_DEV )
RELEASE WshNetWork
.
.
.
.
.
* 改回 Windows default 印表機名稱
WshNetWork = CREATEOBJECT("Wscript.NetWork")
WshNetWork.SetDefaultPrinter(cDefaultPrint )
RELEASE WshNetWork
|
另外, word 不是可以直接設定印表機? _________________ 如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
|
syntech
註冊時間: 2003-05-16 文章: 4227 來自: Taipei,Taiwan
第 3 樓
|
發表於: 星期五 七月 09, 2021 5:15 pm 文章主題: |
|
|
就覺得哪裡奇怪,原來本來就可以用
代碼: |
SET PRINTER TO [DEFAULT | NAME WindowsPrinterName]
|
來做呀.
一樣用 APRINTERS() 取得所有印表機名稱,或是用 SET("Printer", 2) 來做都可以
難怪我老是覺得做出來的東西,權限特高.
XD _________________ 如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
|
sthuang66
註冊時間: 2014-04-27 文章: 176
第 4 樓
|
發表於: 星期五 七月 09, 2021 5:45 pm 文章主題: |
|
|
謝謝syntech的指導!!我試試 |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|