在delphi7的quickrep中为什么qrimage中显示的图片在打印的时候打不出来？

Question

我在quickrep中用qrimage来显示图片，在detailband的beforeprint事件中将图片显示，但是打印的时候却打不出来？我的图片是以jpg格式存储的，所以不能用qrdbimage.

Answer 1

不会吧，用QRIMAGE可以直接调用JPG文件，你用的是QRIMAGE还是
qrdbimage?

Answer 2

用的是qrimage我是这么写的
procedure Trp_print.DetailBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
var
vstream:tstream;
begin
 if not dm.query1.FieldByName('图片).IsNull  then
  begin
  vstream:=dm.query1.CreateBlobStream(dm.query1.FieldByName('图片'),bmread);
  qrimage1.Picture.Graphic:=tjpegimage.Create;
  qrimage1.Picture.Graphic.LoadFromStream(vstream);
  end
  else
  qrimage1.Picture.LoadFromFile('');
end;