|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
ufochen
註冊時間: 2003-09-17 文章: 165
第 1 樓
|
發表於: 星期一 七月 02, 2018 10:22 pm 文章主題: VFP如何一次列印多份Excel文件 |
|
|
Local ExcelFile,oExcel
ExcelFile = MyPath + "MyData\記錄表.xlsx"
oExcel = Createobject("Excel.application") && 創建Excel對象
oExcel.Visible = .F. && 不顯示 Excel 視窗
oExcel.SCREENUPDATING = .F. && 關閉即是運算,加快處裡速度
oExcel.Workbooks.Open(ExcelFile) && 打開指定工作簿
oExcel.ActiveSheet.PageSetup.CenterHorizontally = .T.
oExcel.ActiveSheet.PageSetup.CenterVertically = .T.
oExcel.ActiveSheet.PrintOut && 直接列印
oExcel.ACTIVEWORKBOOK.Close()
oExcel.Quit
以上指令可以列印出一份文件
但如果要一次列印多份文件,不要用迴圈的方式的話要如何下指令??
請各位前輩指導一下,謝謝!! |
|
回頂端 |
|
|
perry
註冊時間: 2014-07-20 文章: 203
第 2 樓
|
發表於: 星期二 七月 03, 2018 4:41 am 文章主題: |
|
|
expression.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName)
expression 必選。該運算式傳回 [套用於] 清單中的物件。
From 選擇性的 Variant。列印的起始頁號。如果省略該引數,將從起始位置開始列印。
To 選擇性的 Variant。列印的終止頁號。如果省略該引數,將列印至最後一頁。
Copies 選擇性的 Variant。要列印的份數。如果省略該引數,將只列印一份。
Preview 選擇性的 Variant。如果為 True 則 Microsoft Excel 列印指定物件之前進行列印預覽。如果為 False,或省略此引數則立即列印該物件。
ActivePrinter 選擇性的 Variant。設定現存印表機的名稱。
PrintToFile 選擇性的 Variant。如果為 True 則印表輸出到檔案。如果未指定 PrToFileName,Microsoft Excel 將提示使用者輸入要輸出的檔案名稱。
Collate 選擇性的 Variant。如果為 True 則逐份列印每份備份。
PrToFileName 選擇性的 Variant。如果 PrintToFile 被設定為 True,此引數會指定您要列印的檔案名稱。
備註
From 和 To 所描述的 頁指的是要列印的頁,並非指定工作表或活頁簿中的全部頁。 |
|
回頂端 |
|
|
ufochen
註冊時間: 2003-09-17 文章: 165
第 3 樓
|
發表於: 星期二 七月 03, 2018 2:22 pm 文章主題: |
|
|
謝謝!perry前輩 ,問題解決了 ! |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|