|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
sthuang66
註冊時間: 2014-04-27 文章: 173
第 1 樓
|
發表於: 星期一 二月 28, 2022 8:11 pm 文章主題: vfp 調用word文件列印兩份? |
|
|
我爬文有 VB to excel的寫法如下
Worksheets. ("sheet1").PrintOut From:=2, To:=3, Copies:=3
---------------------------------------------------------------------
也查了
用Excel作報表,可打印時怎麼選擇打印機,即.ActiveWindow.SelectedSheets.PrintOut的參數有哪些?
Expression.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName)
Expression 必選。該表達式返回「應用於」列表中的某個對象。
From Variant 類型,可選。打印的開始頁號。若是省略該參數,將從起始位置開始打印。
To Variant 類型,可選。打印的終止頁號。若是省略該參數,將打印至最後一頁。
Copies Variant 類型,可選。要打印的份數。若是省略該參數,將只打印一份。
----------------------------------------------------------------------------
我的代碼
WAIT "WORD程式"+CHR(13)+"開啟中"+CHR(13)+"利用WORD列印" WINDOW AT 20,80 NOWAIT
OWRD=CREATEOBJECT("WORD.APPLICATION")
OWRD.VISIBLE=.T.
OWRD.DOCUMENTS.OPEN("D:\1TEST\RE.DOCX")
OWRD.ACTIVEDOCUMENT.PRINTOUT(Copies:=2)
OWRD.QUIT
*OWRD.ACTIVEDOCUMENT.CLOSE
*OWRD.APPLICATION.QUIT
WAIT CLEAR
---------------------------------------------------------------------------
關於printout那行我怎麼試都不行!!我知道不能直接照抄VB寫法
OWRD.ACTIVEDOCUMENT.PRINTOUT(Copies=2) >不行
OWRD.ACTIVEDOCUMENT.PRINTOUT(2) >不行
OWRD.ACTIVEDOCUMENT.PRINTOUT(Copies,2) >不行
只好來請教各位前輩! 目前我最笨方法就是兩種!一是重複開關WORD檔下兩次命令!二是在word檔案中直接就是兩份的內容 |
|
回頂端 |
|
|
garfield Site Admin
註冊時間: 2003-01-30 文章: 2157
第 2 樓
|
發表於: 星期二 三月 01, 2022 4:45 pm 文章主題: |
|
|
如果你用vfp9在command視窗試做這些程式碼時,
當你手動輸入到 OWRD.ACTIVEDOCUMENT.PRINTOUT(
會出現提示訊息,
你會發現 copies是排在第8個參數,
也就是說在vfp裡是每個不同參數採固定位置的方式來傳遞
只要用 OWRD.ACTIVEDOCUMENT.PRINTOUT(,,,,,,,2)
就會印出2份文件. _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. |
|
回頂端 |
|
|
sthuang66
註冊時間: 2014-04-27 文章: 173
第 3 樓
|
發表於: 星期三 三月 02, 2022 12:26 am 文章主題: |
|
|
TO Garfield大大
謝謝你的指導!果然是如你所說的!!可以順利印兩頁了!!太感激你的幫助 |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|