db안에 이미지 화일은 저장되어 있구요...
화면상에는 크기대로 보여지지만 출력물에선 이미지가 작게 나와야하거든요...
화면에는 보이는거랑 직접 출력해서 보는거랑 틀리게 할수있나요??

소스는 아래와 같습니다...
if CDSet1.FieldByName('PHOTO').AsString <> ''  then
    begin
     QRImage1.Picture := nil;
     BStream := CDSet1.CreateBlobStream(CDSet1.FieldByName('PHOTO'),bmRead);
     MemSize := BStream.Size;
     Inc(MemSize);
     Buffer := AllocMem(MemSize);
    try
      BStream.Read(Buffer^, MemSize);
      BStream.Position := 0;
      aJpeg := TJPEGImage.Create;
      try
        aJpeg.LoadFromStream(BStream);
        QRImage1.Picture.Assign(aJpeg);
      finally
        aJpeg.Free;
      end;
    finally
      FreeMem(Buffer, MemSize);
    end;
   end
else
    QRImage1.Picture := nil;

이렇게 하면 화면보이는거랑 사이즈가 똑같아요...
출력할때 사이즈 작게 할려면 어느 부분을 수정해야 할지????
디버깅해보니까 memsize는 47520이 나옵니다..

고수님들의 답변 부탁드립니다...