张志峰的博客

水滴石川，积少成多。

导航

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

Posted on 2016-04-12 09:49  ╰★张志峰★╮  阅读(522)  评论(0)  编辑  收藏  举报 
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;