廣告

2024 年 10 月
 123456
78910111213
14151617181920
21222324252627
28293031  

彙整

使用DELPHI列印EXCEL所有sheet文件

程式Source

然後重點在於我給了兩個變數 var     ExcelApp,Excelall : Variant;

ExcelApp:=CreateOleObject(‘Excel.Application’); <==創建EXCEL應用程式 ExcelApp.Workbooks.Open(tmpFilename); <==正常開啟檔案 Excelall := ExcelApp.Workbooks.Open(tmpFilename);//可列印全部SHEET <==把開啟檔案的狀態給Excelall

最後再使用 Excelall.printout 即可全部的Sheet都列印出來,關閉Excel還是要用ExcelApp.quit來關,而不是 Excelall.quit。

列印作用中的sheet則用 ==> ExcelApp.ActiveSheet.PrintOut 即可

要預覽可帶參數 ==> Excelall.printout(Copies:=1, Collate:=True, […]