请问怎样调用Excel预览、保存和打印,谢谢! 请问怎样调用Excel预览、保存和打印,谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 首先创建 Excel 对象,使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( 'Excel.Application' );设置第2个工作表为活动工作表:ExcelApp.WorkSheets[2].Activate; 打印预览工作表:ExcelApp.ActiveSheet.PrintPreview;打印输出工作表:ExcelApp.ActiveSheet.PrintOut;工作表保存:if not ExcelApp.ActiveWorkBook.Saved then ExcelApp.ActiveSheet.PrintPreview;工作表另存为:ExcelApp.SaveAs( 'C:\Excel\Demo1.xls' ); 其实在google里搜一下都可以找到很多 为了让数据按照我规定的格式输出,我专门建了一个存放Excel的Reports文件夹,里面存放了针对性文件输出格式的Excel格式文件,请问在Delphi里怎样调用这些Excel格式文件,并且让要保存的数据存放到这些格式文件指定的格子里,这些Excel格式文件本身并不改变。 http://www.knowsky.com/print.asp?id=335870看一下这个 获得打印机状态信息 sql语法错误,求解 delphi 中如何实现Undo,Redo功能? 怎么给一个EXCEL添加一张图表 谁能告诉我。开车从东北旺乡上五环怎么走 关于DBGrid属性修改的问题 大家新年好!建立文件的问题! 各位兄弟50分哪,教教我吧,如何用寫文件的方式來生成.xls的文件? 高手拿分 2 祝大家新年快乐 多线程访问数据库的问题 用ADO连接paradox数据库的问题?
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
设置第2个工作表为活动工作表:
ExcelApp.WorkSheets[2].Activate;
打印预览工作表:
ExcelApp.ActiveSheet.PrintPreview;
打印输出工作表:
ExcelApp.ActiveSheet.PrintOut;
工作表保存:
if not ExcelApp.ActiveWorkBook.Saved then
ExcelApp.ActiveSheet.PrintPreview;
工作表另存为:
ExcelApp.SaveAs( 'C:\Excel\Demo1.xls' );
看一下这个