怎么在Delphi中打印Excel文件中的所有工作簿（SHEET）
如何在Delphi中打印Excel文件中的所有工作簿（SHEET）？
如题，调用 ExcelApp.ActiveSheet.PrintOut 后，只是把 sheet1 打印了出来，
如何用不带参数的方法打印出所有工作簿（SHEET）？
------解决方案--------------------
循环所有 SHEET 设置为ACTIVATE 打印
FExcelApp.worksheets[i].activate;
FExcelApp.ActiveSheet.PrintOut;
------解决方案--------------------
把所有sheet的内容复制到一个新的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;