重新显示当前页

procedure TRpPreviewForm.RvRenderPreview1ZoomChange(Sender: TObject)；
var   String1: string[10]；
begin
     Str(RvRenderPreview1.ZoomFactor:1:1,String1)；
// 将double类型的ZoomFactor缩放百分数根据指定的位数转换为串，
//并存入到String1中
     ZoomEdit.Text := S1；
     // 显示新的缩放因子
     RvRenderPreview1.RedrawPage；
 // 在预览屏幕上重新显示当前报表页
end；