如何在Delphi中打印Excel文件中的所有工作簿（SHEET）？
如题，调用 ExcelApp.ActiveSheet.PrintOut 后，只是把 sheet1 打印了出来，
如何用不带参数的方法打印出所有工作簿（SHEET）？

[解决办法]
循环所有 SHEET 设置为ACTIVATE 打印
FExcelApp.worksheets[i].activate;
FExcelApp.ActiveSheet.PrintOut;

[解决办法]
把所有sheet的内容复制到一个新的sheet，再打印出来
[解决办法]

Delphi(Pascal) code

a.拷贝整个工作表：ExcelApp.ActiveSheet.Used.Range.Copy;b.拷贝指定区域：ExcelApp.ActiveSheet.Range[ ''A1:E2'' ].Copy;c.从A1位置开始粘贴：ExcelApp.ActiveSheet.Range.[ ''A1'' ].PasteSpecial;d.从文件尾部开始粘贴：ExcelApp.ActiveSheet.Range.PasteSpecial;