加入调整分辨率代码，打印预览页面不能全部显示(100分)

我编的数据库软件，在600×800下，可以正常显示，但是在1024×760上显示，布局就难看了，所以，我用以下代码用于在1024×760上正常显示，其它的组件以及字体均放大了，很好看，但是当点击打印预览时，问题来了，打印预览页面不能全部显示，右面一些部分看不到了，怎么办？
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
打印代码： QuickRep1.Preview;
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
procedure TForm1.FormCreate(Sender: TObject);
var
FWidth:integer;
begin
//自动分辨率
if(Screen.width<> 800)then
begin
FWidth:=Width;
Scaled:=TRUE;
Font.Size:=(Width DIV FWidth)*Font.Size;//字体大小调整
ScaleBy(Screen.Width,800);
//控件大小调整
Height:=longint(Height)*longint(Screen.Height)DIV 600;
Width:=longint(Width)*longint(Screen.Width)DIV 800;//窗口大小调整
end;

end;

这个问题没人回答 我想是因为 QUICKREPORT 用的人少了
我估计 你自己设置 Preview 会好处理，让该Preview的PARENTFONT为FALSE

to mstar：〕
一、 我想是因为 QUICKREPORT 用的人少了＝＝＝现在人们用什么？
二、我估计 你自己设置 Preview 会好处理，让该Preview的PARENTFONT为FALSE ＝＝不知道在哪儿设置？

一 用 FASTREPORT
二 TQRPreview 确实有这个属性