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