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