VFP 愛用者社區 首頁 VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
 
 常見問題常見問題   搜尋搜尋   會員列表會員列表   會員群組會員群組   會員註冊會員註冊 
 個人資料個人資料   登入檢查您的私人訊息登入檢查您的私人訊息   登入登入

VFP利用WORD列印文件時印表機設定

 
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> Windows 討論區
上一篇主題 :: 下一篇主題  
發表人 內容
sthuang66



註冊時間: 2014-04-27
文章: 166


第 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
文章: 4211
來自: 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. 想學習系統規劃,想找系統架構的顧問

請聯絡我們,也許我們幫得上忙
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件 AIM Address
syntech



註冊時間: 2003-05-16
文章: 4211
來自: Taipei,Taiwan

第 3 樓

發表發表於: 星期五 七月 09, 2021 5:15 pm    文章主題: 引言回覆

就覺得哪裡奇怪,原來本來就可以用

代碼:

SET PRINTER TO [DEFAULT | NAME WindowsPrinterName]


來做呀.
一樣用 APRINTERS() 取得所有印表機名稱,或是用 SET("Printer", 2) 來做都可以

難怪我老是覺得做出來的東西,權限特高.
XD

_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問

請聯絡我們,也許我們幫得上忙
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件 AIM Address
sthuang66



註冊時間: 2014-04-27
文章: 166


第 4 樓

發表發表於: 星期五 七月 09, 2021 5:45 pm    文章主題: 引言回覆

謝謝syntech的指導!!我試試
回頂端
檢視會員個人資料 發送私人訊息
從之前的文章開始顯示:   
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> Windows 討論區 所有的時間均為 台北時間 (GMT + 8 小時)
1頁(共1頁)

 
前往:  
無法 在這個版面發表文章
無法 在這個版面回覆文章
無法 在這個版面編輯文章
無法 在這個版面刪除文章
無法 在這個版面進行投票
無法 在這個版面附加檔案
無法 在這個版面下載檔案


Powered by phpBB © 2001, 2005 phpBB Group
正體中文語系由 phpbb-tw 維護製作