RSS订阅 | 匿名投稿
您的位置:网站首页 > 打印 > 正文

delphi word转pdf两种方法

作者:admin 来源: 日期:2018/2/25 14:29:37 人气: 标签:

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;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料