DELPHI与WORD怎样连用 急~急~

DELPHI与WORD怎样连用 急~急~ Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiDB/html/delphi_20061224122056134.html
我想用DELPHI做一个简单的数据库,在输入完内容后用WORD打印出,但是不知道用什么控件及代码应怎样写,我是位新手,请高手多多指教。(注:打印出来是带用表格形式的)

http://community.csdn.net/Expert/topic/5238/5238318.xml?temp=3.475368E-03

导出DBGrid为Word表格。  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      WordApp,WordDoc,WordTable:OleVariant;  
      i,j:integer;  
  begin  
      WordApp:=CreateOleObject('Word.Application');  
      WordApp.Visible:=True;  
      WordDoc:=WordApp.Documents.Add;  
      WordTable:=WordDoc.Tables.Add(WordApp.Selection.Range,DBGrid1.DataSource.DataSet.RecordCount+1,DBGrid1.Columns.Count);  
      for   i:=1   to   DBGrid1.Columns.Count   do  
      WordTable.Cell(1,i).Range.InsertAfter(DBGrid1.Columns[i-1].Title.Caption);  
      i:=2;  
      with   DBGrid1.DataSource.DataSet   do  
      while   not   eof   do  
      begin  
          for   j:=1   to   DBGrid1.Columns.Count   do  
              WordTable.Cell(i,j).Range.InsertAfter(DBGrid1.Columns[j-1].Field.Value);  
          Next;  
          Inc(i);  
      end;  
  end;

谢谢~!   我试试!

转载于:https://www.cnblogs.com/delphi2007/archive/2008/10/20/1314902.html

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值