[rufo]

Ok

Para buscar la imagen pongo este codigo

procedure TBuscar_foto.Button1Click(Sender: TObject);
begin
 if openpicturedialog1.Execute then
   begin
     image1.Picture.LoadFromFile(openpicturedialog1.filename);
     edit1.Text:=openpicturedialog1.filename;
   end;
end;

Y para mandar a imprimir la foto es este codigo

procedure TBuscar_foto.Button2Click(Sender: TObject);
begin
 with Fr_foto do
  begin
   qrimage1.Picture.LoadFromFile(openpicturedialog1.FileName);
   quickrep1.preview;
  end;
end;

Y pongo tu codigo que me diste

implementation
  uses QRPrntr;
{$R *.DFM}
function Flatten(AGraphic: TGraphic; ABackColor: TColor = clWhite): TBitmap;
begin
  Result := TBitmap.Create;
  with Result do
  begin
    Width := AGraphic.Width;
    Height := AGraphic.Height;
    Canvas.Brush.Color := ABackColor;
    Canvas.FillRect(Rect(0, 0, Width, Height));

    Canvas.Draw(0, 0, AGraphic);
  end;
procedure TFR_foto.DetailBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
var
  P: TPicture;
begin
  if FileExists(ChangeFileExt(Application.ExeName, '.bmp')) then
    qrimage1.Picture.LoadFromFile(ChangeFileExt(Application.ExeName, '.bmp'))

  else if FileExists(ChangeFileExt(Application.ExeName, '.png')) then
  begin
    P := TPicture.Create;
    try
      P.LoadFromFile(ChangeFileExt(Application.ExeName, '.png'));
      qrimage1.Picture.Assign(Flatten(P.Graphic));
    finally
      P.Free;
    end;
  end;

end;

end;
end.

Entonces es asi como lo estoy programando ahorita.