摘要: 先上图:delphi实现代码如下:procedure TForm1.ToolButton12Click(Sender: TObject);var myTable: Table;oleCount,oleUnit: Olevariant; begin //以下打开word新的文档tryWordApplication1.Connect;WordApplication1.Caption := '打印故障记录';WordApplication1.Visible := true;exceptMessageDlg('也许word没有安装,请重试', mtError, [mbO 阅读全文
posted @ 2013-09-17 18:53 kevintang 阅读(1314) 评论(0) 推荐(0)