Delphi - QRP a JPG

Hola..... Help
Como puedo convertir un archivo .QRP en un Archivo JPG ???
o Grabar el informe emitido en formato JPG o cualquier formato de imagen ...
Gracias por su ayuda .. Bye

En la Pagina de ClubDelphi.com esta la respuesta a tu pregunta, para facilitarte las cosas te dejo el codigo el cual ellos tienen

Truco: De Quick Report a JPG

procedure TFPreview.SpeedButton1Click(Sender: TObject);

procedure ajpeg(archivo:string);
var
Jpg:TjpegImage;
Bmp:Tbitmap;
begin
Jpg:=TjpegImage.Create;
Bmp:=TbitMap.Create;
Try
Bmp.LoadFromFile(archivo+'.bmp');
Jpg.Assign(Bmp);
Jpg.CompressionQuality:=50; // de 1..100
Jpg.Compress;
Jpg.SaveToFile(archivo+'.jpg');
Finally
Jpg.Free;
bmp.free;
end;
end;

var
MyMETA : TMetafile;
MyBMP : TBitmap;
i:integer;
begin
MyMETA:=TMetafile.Create;
i:=1;
save.Title:='Importar Documento a JPG';
save.Options:=[ofOverwritePrompt];
save.filename:='';
save.Execute;
if save.filename<>'' then begin
while i<=QRPreview.QRPrinter.PageCount do begin
mymeta.Assign(qrpreview.QRPrinter.GetPage(i));
mymeta.Enhanced:=true;
mymeta.SaveToFile(save.FileName+' ('+inttostr(i)+' de '+inttostr(QRPreview.QRPrinter.PageCount)+')'+'.emf');
MyBMP:=TBitmap.Create;
MyBMP.Width := myMeta.width;
MyBMP.Height := mymeta.height;
MyBMP.Canvas.Draw(0,0,MyMETA);
MyBMP.SaveToFile(save.FileName+' ('+inttostr(i)+' de '+inttostr(QRPreview.QRPrinter.PageCount)+')'+'.bmp');
MyBMP.FreeImage;
ajpeg(save.FileName+' ('+inttostr(i)+' de '+inttostr(QRPreview.QRPrinter.PageCount)+')');
DeleteFile(save.FileName+' ('+inttostr(i)+' de '+inttostr(QRPreview.QRPrinter.PageCount)+')'+'.emf');
DeleteFile(save.FileName+' ('+inttostr(i)+' de '+inttostr(QRPreview.QRPrinter.PageCount)+')'+'.bmp');
inc(i);
end;
end;
MyMeta.Free;
Close;
end;