问一个setmapmode的问题
我的panel靠右占窗体的5/6,panel上有多个label,多个edit,两个paintbox,一个stringgrid,我要打印panel上的内容,并充满整个A4纸,我的原码如下:
procedure Tfrm_picture.BitBtn8Click(Sender: TObject);
begin
with Printer do
begin
BeginDoc;
SetMapMode(Handle,MM_ANISOTROPIC);
SetWindowExtEx(Handle,Panel1.Width,Panel1.Height,nil);
SetViewportExtEx(Handle,pageWidth-20,pageHeight-20,nil); panel1.PaintTo(handle,20,20);
EndDoc;
end;
end;
我怎么能控制打印出的各控件字体不保持与窗体上的字体大小不变,但各控件能正好排满整个A4纸张?
<如果xiaocha(小查)朋友在,请再帮忙,上面的代码是他所给>