Delphi 保存写字板程序， 并进行打印

wDoc := docapp1.Documents.open(ExtractFilePath(Paramstr(0)) + 'abc.doc');
 wDoc.SaveAs(ExtractFilePath(Paramstr(0)) + 'tmp\2.rtf', wdFormatRTF);
 wDoc.close;
 form2.rxRichEdit1.Lines.LoadFromFile(ExtractFilePath(Paramstr(0)) + 'tmp\2.rtf');
 form2.show;