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;
请发表评论