求高手(不高也行)QReport预览时如何默认为Zoom100.我弄了一个晚上了帮看看下面的代码吧！

procedure TFBaseReport.fitnice;
var
i: Integer;
begin
  for i := Screen.FormCount - 1 downto 0 do
  begin
    with Screen.Forms[i] do
    begin
      if ClassName = 'TQRStandardPreview' then
      begin
        if qkReport.Page.Orientation = poPortrait then
        begin
          TQRStandardPreview(TComponent(Screen.Forms[i])).Zoom100.Down := true;
          TQRStandardPreview(TComponent(Screen.Forms[i])).ZoomToWidth.Down := false;
          TQRStandardPreview(TComponent(Screen.Forms[i])).ZoomFit.Down := false;
          TQRStandardPreview(TComponent(Screen.Forms[i])).Zoom100.Click;
        end else
        begin
          TQRStandardPreview(TComponent(Screen.Forms[i])).ZoomFit.Down := true;
          TQRStandardPreview(TComponent(Screen.Forms[i])).Zoom100.Down := false;
          TQRStandardPreview(TComponent(Screen.Forms[i])).ZoomToWidth.Down := false;
          TQRStandardPreview(TComponent(Screen.Forms[i])).ZoomFit.Click;
        end;
      end;
    end;
  end;
end;procedure TFBaseReport.qkReportEndPage(Sender: TCustomQuickRep);
begin
  fitnice;
end;
我查了几个国外网站都说要改QReport的源代码或者自己做Preview难道真的没有别的办法了吗？