Perdonad por no responder antes, he perdido el hilo de vista, aunque he progresado bastante. Anoche a las 2 de la madrugada hice funcionar mi "TfrAutoReport".
Exacto
Delphius, es eso lo que quiero conseguir, pero con FreeReport (versión con código fuente de los FastReports, aunque algo antiguos).
fjcg02: Estoy migrando una aplicación desde QuickReports a FreeReports. Existe un fallo conocido por QuSoft y sin solución: Cuando le da la gana, no imprime la foto de un QRDBImage. Es un fallo aleatorio y sin excepciones.
Este código es provisional y tendré que añadir más cosas:
Código Delphi
[-]
with AutoReport1 do
begin
PageOrientation := pgPortrait;
PageHeader := 'Listado de Facturas del cliente ' + DescCliente;
Dataset := query1;
FieldNames.Add('cliente');
FieldNmaes.Add('direccion');
...
SummaryFields.Add('"Base Imponible"');
SummaryFields.Add('Importe');
ShowReport;
end;
Tengo creada una presentación preliminar para FastReport. Mi idea es colocar ese componente en dicha ventana, asignar las propiedades de página y márgenes en el inspector de objetos, y ya en tiempo de ejecución usarlo para generar cualquier informe. De momento funciona.
Reconozco que FreeReports tiene los eventos OnGetValue, algo así como el OnNeedData del QuickReports, pero no quiero usar ese método, implica muchos cambios.