Всем привет у меня такая проблема не могу правильно вывести из dbgrid в word подскажите что не так
| Код |
procedure TfrmMain.GoToWord(Sender: TObject);
var
W, Table: Variant;
i, j: Integer;
begin
W := CreateOleObject('Word.Application');
W.Documents.Add;
W.ActiveDocument.Tables.Add(W.ActiveDocument.Range ,
dbgrMain.DataSource.DataSet.RecordCount, dbgrMain.DataSource.DataSet.FieldCount);
Table := W.ActiveDocument.Tables.Item(1);
Table.Style := 'Сетка таблицы';
dbgrMain.DataSource.DataSet.First;
for i := 0 to dbgrMain.DataSource.DataSet.RecordCount-1 do
begin
for j := 0 to dbgrMain.DataSource.DataSet.FieldCount - 1 do
Table.Cell(i+1,j+1).Range.InsertBefore(dbgrMain.Da taSource.DataSet.Fields[j].AsString);
dbgrMain.DataSource.DataSet.Next;
end;
W.Visible := True;
end;
|
 |
