Ver Mensaje Individual
  #2  
Antiguo 22-07-2015
Avatar de hgiacobone
hgiacobone hgiacobone is offline
Miembro
 
Registrado: may 2003
Ubicación: La Plata, Bs. As., Argentina
Posts: 165
Reputación: 22
hgiacobone Va por buen camino
*resuelto*

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 ;  //vars global dentro del reporte que cambia leyendas
                        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; //libero reporte para poder borrarlo luego
                      end;
                      //Borrando temporales
                      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.
__________________
Gracias de antemano por vuestra ayuda.
·.:*:.·Yako·.:*:.·

Última edición por hgiacobone fecha: 22-07-2015 a las 20:36:38. Razón: faltaban cosas
Responder Con Cita