|
No se que hago mal
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
|