打印panel上的内容，怎么控制打印出的字体大小不变(50分)

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); //右边距、底边距各空20
Panel1.PaintTo(handle,20,20); //左边距、上边距各空20
EndDoc;
end;

end;
怎么控制打印出来的字体不随映射的关系改变？

大富翁人气怎么了？看来要去csdn上问了