使用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, Preview:=True) 即可預覽