Ver Mensaje Individual
  #3  
Antiguo 28-10-2006
jlcasih jlcasih is offline
Miembro
 
Registrado: may 2003
Ubicación: Argentina
Posts: 54
Reputación: 22
jlcasih Va por buen camino
Unhappy

En primero instancia tengo un objeto que se encarga de setear propiedades generales y llamar al form en donde se encuentra el reporte diseñado,el llamado en este caso, el mas simple es un listado, codigo:

Código:
try
  F                                                  := TFReporte1.Create(nil);
  TFReporte1(F).QuickRep1.DataSet      := ADataSet;
  TFReporte1(F).LblTitulo.Caption         := 'Titulo';
  TFReporte1(F).MemSubTit.Lines.Text  := 'Subtitulo';
  //Guardo puntero
  Book                                             := ADataSet.Bookmark;
  DataSet.DisableControls;
  TQuickRep(F.FindComponent('QuickRep1')).ReportTitle := 'Vista Previa';
  TQuickRep(F.FindComponent('QuickRep1')).PreviewModal;
finally
  if Book <> '' then ADataSet.Bookmark   := Book;
  ADataSet.EnableControls;
  TQuickRep(F.FindComponent('QuickRep1')).Free;
  F.Free;
end;
Muchas gracias por tu rapida respuesta. Saludos
__________________
Cordoba-Argentina
Responder Con Cita