Bien, de pura casualidad, encontré una solución a pesar que la exportacion a PDF (desde la vista previa) sigue emitiendo una sola página.
Este es el código:
Código Delphi
[-]
MultiFE:= TStringList.Create;
Try
TempPath:= GetEnvironmentVariable('TEMP');
For i:= 1 to nCopias do
Begin
cSubf:= Format('Reporte_%d.qrp', [i] );
QRForm1.nTipoCopia:= i ; QRForm1.QR1.Prepare;
with QRForm1.QR1.Printer do
begin
Save(TempPath +'\'+ cSubf);
MultiFE.Add(TempPath +'\'+ cSubf);
end;
end;
with QRForm1.QR1.Printer do
begin
Cleanup;
CombineQRP(TempPath+'\MiReporte.qrp', MultiFE);
Load(TempPath+'\MiReporte.qrp');
FirstPage:= 1;
LastPage := nCopias;
if (lPreview)
then PreviewModal
else Print;
Cleanup; end;
For i:= 0 to MultiFE.Count-1 do DeleteFile(MultiFE[i]);
DeleteFile(TempPath+'\MiReporte.qrp');
Finally
MultiFE.Free;
End;
El secreto está en que, cuando se utiliza la combinación de documentos para crear un documento de múltiples páginas, hay que especificar valores a las propiedades
FirstPage y sobre todo a
LastPage para que la impresión se realice de la primera a la ultima. Sino, es como que queda en 1 to 1 aunque el comando
QR1.Printer.Load cargue 100 reportes.
Supongo es un bug del QR.