delphi word轉pdf兩種方法。

本文轉載自查看原文 2016-05-26 10:36 2662 delphi技巧文章

 1 uses ComObj;
 2 procedure TForm1.Button1Click(Sender: TObject);
 3 var
 4    wdo,wdoc,wdocs : OleVariant;
 5 begin
 6   wdo := CreateOleObject('Word.Application');
 7   wdocs := wdo.Documents;
 8   wdo.ActivePrinter := 'Acrobat PDFWriter';
 9   wdoc := wdocs.Open('C:\docfile.docx');
10   //另存為的方法可以用saveas
11   wdoc.ExportAsFixedFormat('C:\pdffile.pdf',
12                         17, false,
13                         EmptyParam,
14                         EmptyParam,
15                          EmptyParam,
16                         EmptyParam, EmptyParam,
17                          true,
18                         true, true, true,
19                         true, false,
20                         EmptyParam);
21 
22  //虛擬打印機的方法
23  wdoc.PrintOut(0, 0, 0,'C:\pdffile.pdf');
24 
25 end;

 1 uses ComObj;
 2 procedure TForm1.Button1Click(Sender: TObject);
 3 var
 4    wdo,wdoc,wdocs : OleVariant;
 5 begin
 6   wdo := CreateOleObject('Word.Application');
 7   wdocs := wdo.Documents;
 8   wdo.ActivePrinter := 'Acrobat PDFWriter';
 9   wdoc := wdocs.Open('C:\docfile.docx');
10   //另存為的方法可以用saveas
11   wdoc.ExportAsFixedFormat('C:\pdffile.pdf',
12                         17, false,
13                         EmptyParam,
14                         EmptyParam,
15                          EmptyParam,
16                         EmptyParam, EmptyParam,
17                          true,
18                         true, true, true,
19                         true, false,
20                         EmptyParam);
21 
22  //虛擬打印機的方法
23  wdoc.PrintOut(0, 0, 0,'C:\pdffile.pdf');
24 
25 end;

免責聲明！

本站轉載的文章為個人學習借鑒使用，本站對版權不負任何法律責任。如果侵犯了您的隱私權益，請聯系本站郵箱yoyou2525@163.com刪除。

猜您在找 delphi 讀取excel 兩種方法 Markdown轉換word（兩種方法，實現兩者互轉） Java 創建 PDF 文件包的兩種方法 2016.4.6 WinForm顯示PDF兩種方法 c# 讀取excel數據的兩種方法（轉） vba判斷文件是否存在的兩種方法（轉） uboot中ramdisk啟動linux的兩種方法【轉】 SpringMVC存取Session的兩種方法轉 [原創]Delphi XE Android/IOS 實現圖片放大縮小的兩種方法 C#將Word轉換成PDF方法總結(基於Office和WPS兩種方案)