delphi word转pdf两种方法
uses ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
wdo,wdoc,wdocs : OleVariant;
begin
wdo := CreateOleObject('Word.Application');
wdocs := wdo.Documents;
wdo.ActivePrinter := 'Acrobat PDFWriter';
wdoc := wdocs.Open('C:\docfile.docx');
//另存为的方法可以用saveas
wdoc.ExportAsFixedFormat('C:\pdffile.pdf',
17, false,
EmptyParam,
EmptyParam,
EmptyParam,
EmptyParam, EmptyParam,
true,
true, true, true,
true, false,
EmptyParam);
//虚拟打印机的方法
wdoc.PrintOut(0, 0, 0,'C:\pdffile.pdf');
end;
方法2：
uses ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
wdo,wdoc,wdocs : OleVariant;
begin
wdo := CreateOleObject('Word.Application');
wdocs := wdo.Documents;
wdo.ActivePrinter := 'Acrobat PDFWriter';
wdoc := wdocs.Open('C:\docfile.docx');
//另存为的方法可以用saveas
wdoc.ExportAsFixedFormat('C:\pdffile.pdf',
17, false,
EmptyParam,
EmptyParam,
EmptyParam,
EmptyParam, EmptyParam,
true,
true, true, true,
true, false,
EmptyParam);
//虚拟打印机的方法
wdoc.PrintOut(0, 0, 0,'C:\pdffile.pdf');
end;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.043263912200928 seconds