Fórum imprimir imagem - quickreport #300620

Crie uma procedure carregafoto.

procedure TForm1.carregafoto;
var
b : TStream;
Jpg : TJpegImage;

begin
b:= TStream.Create;
Jpg := TJpegImage.Create;

b:= IBQuery1.CreateBlobStream(IBQuery1.FieldByName('foto'),bmRead);

if b.Size > 0 then
begin
Jpg.LoadFromStream(b);
QRImage2.Picture.Assign(Jpg);
jpg.Free;
end
else
QRImage2.Picture.Assign(nil);

b.Free;
end;

procedure TForm1.QRBand4BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
carregafoto;
end;

procedure TForm1.qr1StartPage(Sender: TCustomQuickRep);
begin
FrmPreview.Canvas.Draw(1, 1, QRImage2.Picture.Graphic);
end;