Quickreport, unir dos informes

[chavi]

Esto es lo que hago al pulsar el botón de imprimir desde el Form que llamo a los que quiero unir. Saber que al imprimir uno a uno funciona correctamente desde aqui.
Puse el QrCompositeReport en este Form.

Veis algo que yo no vea?



procedure TFrmPolizas.TBtnImprimirClick(Sender: TObject);
var
Valores: tInifile;
ImprCGPolizas : String;
begin
Valores := TIniFile.Create('DatosGestion.ini');
ImprCGPolizas := Valores.ReadString('Polizas', 'Condiciones_Generales', '0');
Valores.Free;
// Procedimiento para cubrir valores
ImprimirPoliza;
QrCompositeReport.Reports.Clear;
QrCompositeReport.Reports.Add(FrmListPoliza.QRPoliza);
QrCompositeReport.Reports.Add(FrmCondicionesPoliza.QRListado);
QrCompositeReport.Preview;
end;


Gracias por todo

Chavi

[[Lepe]]

El que ha hecho mal las cosas soy yo. Ya dije que no he usado nunca el Composite, y entendí mal el funcionamiento.

Al parecer tienes que hacerlo así:

Código Delphi [-]
procedure TFrmPolizas.TBtnImprimirClick(Sender: TObject);
var
  Valores: tInifile;
  ImprCGPolizas : String;
begin
  Valores := TIniFile.Create('DatosGestion.ini');
  ImprCGPolizas := Valores.ReadString('Polizas', 'Condiciones_Generales', '0');
  Valores.Free;
// Procedimiento para cubrir valores
  ImprimirPoliza;
  QrCompositeReport.Preview;
end;

// En tu compositeReport, inspector de objetos, evento OnAddReports, doble clic
procedure TFrmPolizas.QRComposite1AddReports(...);
begin
  QrCompositeReport.Reports.Clear;
  QrCompositeReport.Reports.Add(FrmListPoliza.QRPoliza);
  QrCompositeReport.Reports.Add(FrmCondicionesPoliza.QRListado);
end;

El evento OnAddReports salta cuando se va a realizar el OnPreview del Composite, y se le debe decir en ese evento los informes que debe añadir.

... La verdad no se parece a la forma de trabajar de Delphi, así que no resulta nada intuitivo .

Saludos

[chavi]

Ahora si

Muchas gracias por todo

Saludos

Chavi