delphi程序下 excel转pdf文档

在office 2010以上版本集成了pdf转换插件（2007需要装个SaveAsPDFandXPS.exe），转换非常方便。示例代码如下：

uses comobj；

var
  MsExcel, MsExcelWorkBook, MsExcelWorkSheet: Variant;
begin
  MsExcel := CreateOleObject('Excel.Application');
  MsExcelWorkBook := MsExcel.Workbooks.Open('C:\Users\admin\Desktop\111.xlsx');
  MsExcel.WorkSheets[1].Activate;
  MsExcelWorkSheet := MsExcel.Worksheets.Item[1];
  MsExcelWorkSheet.saveas('C:\Users\admin\Desktop\111.pdf',57);
  MsExcelWorkBook.close;
end;
 

说明：其中“MsExcelWorkSheet.saveas('C:\Users\admin\Desktop\111.pdf',57);”中的57代表转换格式为xlPDF。

如果是2003及以下版，可通过PDF虚拟打印机打印方式生成PDF文档。如：
 ExcelApp.ActivePrinter :='Microsoft Print to PDF';
 ExcelApp.ActiveSheet.PrintOut;