===有关打印的问题，十万火急？

Question

var
  j : TJpegImage;
  a : TBlobStream;
begin
      J := TJPEGImage.Create;
      a := TBlobStream.Create(TBlobField(customerdata.photocds.FieldByName('Photo')), bmRead);
      try
        J.LoadFromStream(a);
        Image1.Picture.Assign(J);
      finally
        a.Free;
        j.free;
      end ;end;

Answer 1

to 　chechy(chechy):
换上你的代码也一样，浏览没有问题，打印图没有了，且有时还能打出图来？？真是怪事

Answer 2

肯定不是打印机的问题,打印机是HP6L，用别的软件打印，一切正常的。

Answer 3

我绝对很奇怪，同样的程序在EPSON1600K打印是正常的，在HP6L下，东西会变得非常小（好像就是图形输出）。