在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;