VFP 愛用者社區

[sthuang66]

我爬文有 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]

如果你用vfp9在command視窗試做這些程式碼時,
當你手動輸入到 OWRD.ACTIVEDOCUMENT.PRINTOUT(
會出現提示訊息,
你會發現 copies是排在第8個參數,
也就是說在vfp裡是每個不同參數採固定位置的方式來傳遞
只要用 OWRD.ACTIVEDOCUMENT.PRINTOUT(,,,,,,,2)
就會印出2份文件.

[sthuang66]

TO Garfield大大
謝謝你的指導!果然是如你所說的!!可以順利印兩頁了!!太感激你的幫助