图片打印问题－－－100分！(100分)

各位大侠：
小弟我用DELPHI自带的QREPort控件编写报表，在报表中有一图片字段，用QRDBImage控件，
但是在打印的时候，一条记录对应一张图片，第一张图片老是没打印出来，仅仅只有一条记录
，他的图片也是打印不出来，到了后来不知道为什么就连所有的图片都不打印了，请问是什么
问题，希望各位大侠帮帮忙，谢谢！！！

看下面代码
if trim(Edit1.Text)='' then
begin
ShowMessage('您没有输入病历编号，不能打印和预览！');
exit;
end;

ReportCheckFrm.QRImage1.Picture.Assign(imageForm.Image2.Picture);
ReportCheckFrm.QRImage2.Picture.Bitmap.Assign(imageForm.Image1.Picture.Bitmap);
ReportCheckFrm.Refresh;
ReportCheckFrm.Query1.close;
//此处加入定位语句，用filter或重写sql
ReportCheckFrm.Query1.SQL.Clear;
ReportCheckFrm.Query1.SQL.Text :='SELECT mainID, Name, Sex, Age, '+
' InHospitalDate, Married, Occupation, OriginalPlace, Address, '+
' ZipCode, WorkingDepartment, DescriberName, Reliablity, '+
' MainDiscription, CurrentMorbidity, DiseaseHistory, '+
' Overview, PersonalHistory, FamilyHistory, '+
' PhysicalExamine, AssistantExamine, Diagnosis, '+
' TreatmentScheme FROM Pathography ';
ReportCheckFrm.Query1.SQL.Add(' Where mainID='''+trim(Edit1.Text)+'''');

ReportCheckFrm.Query1.open;
ReportCheckFrm.QRMemo1.Lines := DiagnosticResultFrm.Memo1.Lines;
ReportCheckFrm.QRMemo2.Lines := DiagnosticResultFrm.Memo2.Lines;
ReportCheckFrm.QRLabel1DoctorName.Caption :=DiagnosticResultFrm.EditDoctorName.text;
ReportCheckFrm.QRLabel26.Caption := trim(DiagnosticResultFrm.Edit1.text);
ReportCheckFrm.QRLabel27.Caption := trim(DiagnosticResultFrm.Edit2.text);
ReportCheckFrm.QRLabel28.Caption := trim(DiagnosticResultFrm.Edit3.text);
ReportCheckFrm.QRLabel29.Caption := trim(DiagnosticResultFrm.Edit4.text);
ReportCheckFrm.QRLabel30.Caption := trim(DiagnosticResultFrm.Edit5.text);
ReportCheckFrm.QRLabel31.Caption := trim(DiagnosticResultFrm.Edit6.text);

ReportCheckFrm.Refresh;
ReportCheckFrm.QRImage1.Refresh;
ReportCheckFrm.QRImage2.Refresh;

ReportCheckFrm.preview;
ReportCheckFrm.Query1.close;

有时会出现这种情况
在用delphi调试时可能资源不够图片不能显示出来， 但是打印是正确的。
如果用编译后的程序则没有问题

建议使用qrimage控件，我也做过相同的软件，我是先把表中的图象先存成一副图，再用
qrimage来调用

To htw: 谢谢你对这个题目的答解，但是你所说的并非我要的，很遗憾，希望你能再帮忙看看，
我用的是ADODATASET控件和QREPOTT,还有就是我现在在报表中所用的图片存取是用QRDBImage读取，
而图片是存在ACCESS数据库中的一个字段，就这样一条条取出来，在预览的时候没问题，就是打印的
时候第一张打印不出来，我听说是微软的一个漏洞和DELPHI中的这个报表控件引起一个小小的冲突，
必须在程序中先打印一次，然后再打印出来就不会出错了，问题是我现在不知道怎么在程序中先进行
打印一次，希望帮忙再看看，谢谢！～～～

你去研究先打印一次，不如研究QRDBImage复制到QRImage

难道真的用QRImage比用QRDBImage来得好不成？但是我现在用的是QRDBImage不想去改动他，所以想能否就此解决了啊，谢谢了！

可以去www.51delphi.com去下载rbuilder控件，
上面的ppDBImage可能更好地显示和打印图片

我的天呢？关键是我现在已经用了QReport控件，要不我就改成FastReport控件了呀，谁帮我解决呀？？？先谢谢了呀

三天了
改用QRImage有那么难吗？

呵呵。。。不是难不难的问题，改成QRIMage并不是说难，只是能在不改动的情况下加一些代码就可以打印正常了，我还是想用加代码的，就希望有人有碰到同样的问题，然后帮我解答一下，谢谢！

啊？没人碰到同样的问题过啊？不是吧！

我遇到過此類問題,用QRImage預覽有圖,列印有時沒有圖,煩啊!

是啊，还有人建议我用QRImage，还好我还没用，要不还是不行，会把我气晕！

http://www.delphibbs.com/delphibbs/DispQ.asp?LID=1354567
关注一下吧没有人提起来呀！用MODEM打电话利用PC机的耳机和麦克风，自己编程如何实现？
(我知道有现成的软件可以用，但是我想自己实现这个上东西）
QQ：65466700
MAIL： along@b2sun.com
TEL :13802785865
http://b2sun.com
请各位大侠多多指教！

怎么到现在还是没有哪位大侠给解决的啊？？？帮帮忙好吗？？？怎么都没人肯回答啊，相信哪位大侠也有遇到过同样的问题吧，那么是怎么解决的，还望不吝赐教，谢谢！

多人接受答案了。