摘要:
先上图: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)

浙公网安备 33010602011771号