[shoulder]

Hola comparto la solucion. Gracias.

Código Delphi [-]
uses  SynPdf
.....

Procedure..
Var

    vpdf : TPdfDocumentGDI;
    pagemeta : TMetafile;
    p : integer;
....

vpdf := TPdfDocumentGDI.Create(true, 1252,false);
vpdf.CompressionMethod := cmNone;



   QuickReport1:=TQuickReport1.Create(self);


   Quickreport1.QRImage1.Picture.LoadFromFile('c:\carpeta\hola.bmp');
 
   QuickReport1.prepare;
   Quickreport1.QRImage1.Repaint;
   for p := 1 to QuickReport1.QRPrinter.PageCount do
   begin
      vpdf.AddPage;
      pagemeta := quickreport1.QRPrinter.GetPage(p);
      vpdf.VCLCanvas.Draw(0,0,pagemeta);
    end;
    vpdf.ForceJPEGCompression := 96;
    vpdf.SaveToFile('c:\carpeta\hola.pdf');
    vpdf.free;
   QuickReport1.Free;
   QuickReport1 := nil;