怎么样把DBGrid数据导到word里打印。

Question

怎么样把DBGrid数据导到word里打印。WordApplication1.Disconnect;
try 
wordapplication1.connect;
except 
messagedlg('word may not be installed', mterror, [mbok], 0); 
abort;
end;
wordapplication1.visible := true;
他总是提示“被呼叫方拒绝接受呼叫”这是什么原因呢？

Answer 1

导出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;

Answer 2

请问怎么样在表格的上面加一个表头怎么样加呀。
WordDoc.Range.title(#13#10'报表标题');这个应该可以呀。
他怎么总是在表尾呢？

Answer 3

楼主你下载个Kingron的超级猛料，有Kingron大侠写的一个控件，导DBGrid内容到Word中的一个类，写的很棒，能解决你的问题