Ver Mensaje Individual
  #4  
Antiguo 03-09-2007
Avatar de movorack
[movorack] movorack is offline
Miguel A. Valero
 
Registrado: feb 2007
Ubicación: Bogotá - Colombia
Posts: 1.346
Reputación: 20
movorack Va camino a la famamovorack Va camino a la fama
el codigo para exportar...

esta es la funcion que uso....

Código Delphi [-]
  procedure ExportToMSExcel(DBGridExcelExport : TJvDBGridExcelExport; SaveDialog : TJvSaveDialog; DBUltimGrid : TJvDBUltimGrid; ProgressDialog: TJvProgressDialog);
  begin
    SaveDialog.Title := 'Exportar a Microsoft Excel...';
    SaveDialog.Filter := 'Microsoft Excel 97-2003 [*.xls]|*.xls|Microsoft Excel 2007 [*.xlsx]|*.xlsx|Todos los Archivos [*.*]|*.*';
    SaveDialog.FilterIndex := 1;
    SaveDialog.DefaultExt := '*.xls';
    if SaveDialog.Execute Then
    begin
      DBGridExcelExport.FileName := SaveDialog.FileName;
      //DBGridExcelExport.UseFieldGetText := true;
      DBGridExcelExport.Grid := DBUltimGrid;
      ProgressDialog.Position := 0;
      ProgressDialog.Max := DBUltimGrid.DataSource.DataSet.RecordCount-1;
      ProgressDialog.Show;
      DBGridExcelExport.ExportGrid;
      ProgressDialog.Hide;
    end;
  end;
__________________
Buena caza y buen remar... http://mivaler.blogspot.com
Responder Con Cita