Con algo de tozudez he podido avanzar algo, lo cuento:
Pude mandar cada "historia clínica" seleccionada a un archivo .qrp, eso lo he logrado de la siguiente manera:
Código Delphi
[-]
for i:=0 to (nros_caravana.Count - 1) do
begin
QRCompositeReport1.Prepare; TQuickRep(QRCompositeReport1.Reports.Items[0]).Printer.Save('reportes\Reporte' + IntToStr(i) + '.QRP');
end;
qrcmpstrprtJuegosCompletos.Preview;
Con esto puedo guardar masivamente todas las "historias", lo que no he podido hacer ha sido levantarlas y mostrarlas en el preview, que es la última línea del código.
En el OnAdd de qrcmpstrprtJuegosCompletos:
Código Delphi
[-]
procedure TFrmBuscarPesajes.qrcmpstrprtJuegosCompletosAddReports(
Sender: TObject);
var
i:Integer;
r:TQuickRep;
begin
r:=TQuickRep.Create(nil);
r.QRPrinter:=TQRPrinter.Create(r);
with qrcmpstrprtJuegosCompletos.Reports do
begin
for i:=0 to (nros_caravana.Count - 1) do
begin
r.QRPrinter.Load('reportes\Reporte' + IntToStr(i) + '.QRP');
Add(r);
end;
end;
end;
El código anterior no me da error pero al aparecer la ventana de vista previa no se ve nada, aparece vacía. Para colmo si lo intento nuevamente me dice que el "último .qrp está siendo usado por otro procedimiento y no se puede tocar"
Los avances han sido buenos pero me falta la frutilla del postre que sería poder levantar los .qrp y armar el informe completo.
¿Alguien tiene sugerencias?
Gracias.