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;