نقل البيانات من dbgrid إلى Excel - نسخة قابلة للطباعة

كود :

[COLOR=Black]//في مايلي عبارة عن تلوين الخانات وتغيير الخط ...
  Font.Name:='times new roman';
  Font.Size:=10;
  Font.Bold:=True;
   With Interior do begin
        ColorIndex := 15;
        Pattern := xlSolid;
        PatternColorIndex := xlAutomatic;
    End;
  With Borders do begin
        LineStyle := xlContinuous;
        Weight := xlThin;
        ColorIndex := xlAutomatic;
    End;
    end;[/COLOR]

كود :

[COLOR=Black]procedure TForm1.Table1AfterOpen(DataSet: TDataSet);
begin
    ExcelApplication1.Connect;
    ExcelApplication1.Visible[0]:=False;
    Tab:=ExcelApplication1.Workbooks.Add(xlWBATWorksheet,0);
    feuil:=Tab.Worksheets[1] as _worksheet;
end;[/COLOR]

كود :

[COLOR=Black]procedure TForm1.Table1AfterOpen(DataSet: TDataSet);
begin
  [color=Blue]Try[/color]
    ExcelApplication1.Connect;
    ExcelApplication1.Visible[0]:=False;
    Tab:=ExcelApplication1.Workbooks.Add(xlWBATWorksheet,0);
    feuil:=Tab.Worksheets[1] as _worksheet;
  [color=Blue]except[/color]
    on E: Exception do MessageDlg(E.Message,mtError,[mbOK], E.HelpContext);
[color=Blue]  end;[/color]

end;[/COLOR]

كود :

[color=Blue]Try[/color]
[COLOR=Black] Try
  ExcelApplication1.Visible[0]:=true;
  For i:=0 to DBGrid1.Columns.Count-1 do
  begin
    with Feuil.Range[A[i+1]+'1',A[i+1]+'1'] do
    begin
      Value[xlRangeValueDefault]:= DBGrid1.Columns.Items[i].Title.Caption;
      Font.Name:='times new roman';
      Font.Size:=10;
      Font.Bold:=True;
      With Interior do
      begin
        ColorIndex := 15;
        Pattern := xlSolid;
        PatternColorIndex := xlAutomatic;
      End;
      With Borders do
      begin
        LineStyle := xlContinuous;
        Weight := xlThin;
        ColorIndex := xlAutomatic;
      End;
    End;
  End;
  
  j:=2;
  Table1.DisableControls;
  Table1.First;
  While not Table1.Eof do 
  begin
    For i:= 1 To  DBGrid1.Columns.Count Do 
    begin
      s:=A[i]+inttostr(j);
      Feuil.Range[s,s].Value[xlRangeValueDefault] :=DBGrid1.Fields[i-1].AsString;
    end;
    Table1.Next;
    j:=j+1;
  end;
 Finally
  ExcelApplication1.Cells.Select;
  ExcelApplication1.Columns.AutoFit;
  ExcelApplication1.Range['A1','A1'].Select;
 End;
[color=Blue]Except[/color]
 on E: Exception do MessageDlg(E.Message,mtError,[mbOK], E.HelpContext);[/COLOR]
[color=Blue]End;[/color]