头都大了,怎么是空白啊

                            
我想把窗口中的内容按现时的样式打印出来,用以下语句实现,在我的打印机(彩色)上完全可以正常打印,可是换到其他打印机上(黑白),打出来的全是空白,到底是怎么回事呢?   
    with   devmode^   do  
              begin  
                    dmfields:=dmfields   or   dm_color;  
                    dmcolor:=dmcolor_monochrome;  
                end;  
                printer.BeginDoc;  
                printer.canvas.stretchdraw(rect(10,10,printer.PageWidth-10,printer.PageHeight-10),form1.GetFormImage);  
  printer.EndDoc;

查看回复