Ver Mensaje Individual
  #2  
Antiguo 27-10-2005
Er_Manué Er_Manué is offline
Miembro
 
Registrado: may 2003
Posts: 74
Reputación: 22
Er_Manué Va por buen camino
Para imprimir una hoja Excel sin visualizarla antes, únicamente tienes que emplear este código.

Código Delphi [-]
var
  Excel: Variant;
  miWBK, miWS : OleVariant;

  ...

begin
  try
    Excel := GetActiveOleObject('Excel.Application');
  except
    Excel := CreateOleObject('Excel.Application');
  end;

  // Impedimos que se muestre Excel
  Excel.Visible := false;
  
  // Abrimos el fichero .xls y obtenemos la hoja que necesitemos
  miWBK := Excel.WorkBooks.Open(rutaHojaExcel);
  miWS  := miWBK.Worksheets.Item[nombreHojaExcel];
  
  //  Realizamos todas las operaciones con la hoja excel ---------------------
  ...

  // Si quisieramos mostrar EXCEL antes de imprimir descomentamos el siguiente comentario 
//  Excel.Visible := true;

  // Imprimimos la hoja excel (sin mostrar excel ya que Excel.Visible = false)
  miWS.PrintOut
    
  // Cerramos Excel ----------------------------------------------------------
  try
    Excel.DisplayAlerts := false;
    Excel.Quit;
  finally
    Excel := Unassigned;
  end;
end;

Salu2

Última edición por Er_Manué fecha: 27-10-2005 a las 12:24:26. Razón: corecciones
Responder Con Cita