DBGrid Ausdrucken mit Records?

[nahpets]

Hallo,

mal grob ohne Testen hingeschrieben:

Delphi-Quellcode:

Var
     i : Integer;
begin
  with DBGrid.DataSource.DataSet do begin
    First;
    while not EoF do begin
      for i := 0 to FieldCount - 1 do begin
        Word.WordBasic.Insert(Fields[i].FieldName + ': ' + Fields[i].AsString + #13); 
      end;
      Next;
    end;
  end;
end;