Кнопка печати в Word

procedure TForm6.BitBtn5Click(Sender: TObject);
var
MsWord,Table:Variant;
i,j:integer;
begin
MsWord:=CreateOleObject('Word.Application');
MsWord.Visible:=False;
MsWord.Documents.Add;
MsWord.Selection.Font.Name:='Times New Roman';
MsWord.Selection.Font.Size:='12';
MsWord.ActiveDocument.Tables.Add(MsWord.ActiveDocument.Range,
dbgrid1.DataSource.DataSet.RecordCount, dbgrid1.DataSource.DataSet.FieldCount);
Table:=MsWord.ActiveDocument.Tables.Item(1);
Table.Style:='Сетка таблицы';
dbgrid1.DataSource.DataSet.First;
for i:=0 to dbgrid1.DataSource.DataSet.RecordCount-1 do
begin
for j:=0 to dbgrid1.DataSource.DataSet.FieldCount-1 do
Table.Cell(i+1,j+1).Range.InsertBefore(dbgrid1.DataSource.DataSet.Fields[j].AsString);
dbgrid1.DataSource.DataSet.Next;
MsWord.Visible:=True;
end;
end;

for j := 0 to dbgrid1.DataSource.DataSet.FieldCount - 1
do Table.Cell(0,j+1).Range.InsertBefore(dbgrid1.DataSource.DataSet.Fields.Fields[j].FieldName);
for i := 0 to dbgrid1.DataSource.DataSet.RecordCount - 1
do for j := 0 to dbgrid1.DataSource.DataSet.FieldCount - 1
   do Table.Cell(i+1,j+1).Range.InsertBefore(dbgrid1.DataSource.DataSet.Fields[j].AsString);