利用delphi如何打印Excel所有Sheet

[肥仔胧]

以下是delphi控制Excel的打印,問題是只能打印一個Sheet,要如何做到一起打印所有Sheet

var
  FExcelApp: Variant

  FExcelApp := CreateOleObject('Excel.Application');
  FExcelApp.Visible := False;
  FExcelApp.WorkBooks.Open(FInFile);
  FExcelApp.WorkSheets[1].Activate;
  FExcelApp.ActiveSheet.PrintOut;
  FExcelApp.WorkBooks.Close;
  FExcelApp.Quit;
  FExcelApp := Unassigned;

[SuperTitan001]

FExcelApp := CreateOleObject('Excel.Application');
FExcelApp.Visible := False;
FExcelApp.WorkBooks.Open(FInFile);
for i := 1 to FExcelApp.worksheets.count do
begin
FExcelApp.worksheets[i].activate;
FExcelApp.ActiveSheet.PrintOut;
end;
FExcelApp.WorkBooks.Close;
FExcelApp.Quit;
FExcelApp := Unassigned;

[luckyboy97]

[Quote=引用 1 楼 supertitan001 的回复:]
  FExcelApp := CreateOleObject('Excel.Application');
  FExcelApp.Visible := False;
  FExcelApp.WorkBooks.Open(FInFile);
  for i := 1 to FExcelApp.worksheets.count do
  begin
    FExcelApp.worksheets[i].activate;
    FExcelApp.ActiveSheet.PrintOut;
  end;
  FExcelApp.WorkBooks.Close;
  FExcelApp.Quit;
  FExcelApp := Unassigned;

[/Quote]

[肥仔胧]

當前只能有一個ActiveSheet

创建一个临时sheet，将其它sheet中所有内容合并到临时sheet中
這個要怎麼實現呢?

[肥仔胧]

樓上兩位,都不是我想要的結果,我要的是一次性打印,以上都是利用循環分次打印

因為我是通過虛擬機打印成其他文件格式的,如果分次打印的話,會打印成n個文件,而不是打印成一個文件

[Princezhouf]

把楼上的FExcelApp.ActiveSheet.PrintOut;放到循环外边来

[hxy3100]

[Quote=引用 3 楼 anbangs 的回复:]
樓上兩位,都不是我想要的結果,我要的是一次性打印,以上都是利用循環分次打印

因為我是通過虛擬機打印成其他文件格式的,如果分次打印的話,會打印成n個文件,而不是打印成一個文件
[/Quote]
那只能用一个笨办法了，先创建一个临时sheet，将其它sheet中所有内容合并到临时sheet中，再将临时sheet设为当前活动sheet，然后ActiveSheet.PrintOut

[Princezhouf]

不懂 全设置成了ActiveSheet不就一起打印了吗