图片打印丢失问题,大家请帮忙!(100分)

图片打印丢失问题,大家请帮忙!(100分) Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiBase/html/delphi_20061207224630228.html
我使用Printer打印一些图片,部分代码如下:  
   
        with   printer   do  
                begin  
                    begindoc;  
                    if   image1.picture.graphic<>nil   then   canvas.stretchdraw(strect1,   image1.picture.graphic);  
                    if   image2.picture.graphic<>nil   then   canvas.stretchdraw(strect2,   image2.picture.graphic);  
                    if   image3.picture.graphic<>nil   then   canvas.stretchdraw(strect3,   image3.picture.graphic);  
                    if   image4.picture.graphic<>nil   then   canvas.stretchdraw(strect4,   image4.picture.graphic);  
                    if   image5.picture.graphic<>nil   then   canvas.stretchdraw(strect5,   image5.picture.graphic);  
                    if   image6.picture.graphic<>nil   then   canvas.stretchdraw(strect6,   image6.picture.graphic);  
                    if   image7.picture.graphic<>nil   then   canvas.stretchdraw(strect7,   image7.picture.graphic);  
                    if   image8.picture.graphic<>nil   then   canvas.stretchdraw(strect8,   image8.picture.graphic);  
                    enddoc;  
                end;  
   
  一次打印8张图片,image1~image8都用OpenPictureDialog装入了图片,可是到打印输出的时候,有时候可以打印完8张图片,可有时候会少打印出1张或几张图片,且不一定总是一个位置的图片,可能是第8张图片,又可能是第6张图片,或者几张都打不出来,找不出问题所在,都装入了图片,就是打印不完整!  
   
   
  大家知道问题的请告诉我,等待中。。。

顶上,看下!

用加载图片会比较慢,建议你拷贝象素试试,方法是TCanvas.CopyRect,

把windows的虚拟内存值设置大一点试一下

强烈鄙视问题解决后不结贴的人!  
  强烈鄙视技术问题解决后把贴子转移到非技术区的人!  
  鄙视你们!  
   
  http://community.csdn.net/Expert/topic/5216/5216675.xml?temp=.9262659

posted on 2009-02-11 16:47  delphi2007  阅读(194)  评论(0编辑  收藏  举报