Problema con PReport

[nspn]

Hola a todos. Estoy utilizando el componente PReport para guardar ficheros QRP, almacenados anteriormente en disco, en formato PDF.

En principio va todo bien, pero el problema es que siempre almacena la primera página del preview. Es decir, cargo en mi visualizador un qrp de 6 páginas por ejemplo, pincho en el botón de almacenar en pdf y me crea un documento PDF con 6 páginas y todas son la primera página del fichero QRP.

La verdad es que no se que probar, si me podeis echar una mano os lo agradeciería.


El código que estoy utilizando es:

lnNumPaginas := Visor.QRPrinter.PageCount;
PReport.FileName := lsNombreFichero;
PReport.BeginDoc;
for i := 1 to lnNumPaginas do
begin
lBMPImagen := TBitmap.Create;
lJPGImagen := TJPegImage.Create;
try
lMFFichero := TMetafile.Create ();
try
lMFFichero := Visor.QRPrinter.GetPage(i);
lBMPImagen.Height := lMFFichero.Height;
lBMPImagen.Width := lMFFichero.Width;
lBMPImagen.Canvas.Draw(0, 0, lMFFichero);
finally
lMFFichero.Free;
end;
lJPGImagen.Assign(lBMPImagen);
PRJpegImage.Picture.Assign(lJPGImagen);
PRJpegImage.Repaint;
PReport.Print(PRPage);
lBMPImagen.FreeImage;
finally
lBMPImagen.free;
lJPGImagen.Free;
end;
end;
PReport.EndDoc;

Está en varios mensajes del foro, lo he modificado un poco para ver si conseguía solucionar mi problema pero nada.....

Gracias de antemano y un saludo

[FernandoFAI]

Hola !

si todavía es pregunta, la pregunta

PRJpegImage.SharedImage := false;

soluciona el problema