请教如何在程序中动态控制页面大小?
就是那个paperSize.
我现在只能改变其横纵向。只能在某一定纸张上横纵向处理。

解决方案 »

  1.   

    uses     RVClass, RVProj;
    var
    MyPage: TRavePage;
    begin
      RvProject1.Open;
      with RvProject1.ProjMan do
      begin
        MyPage := FindRaveComponent('Report1.Page1',nil) as TRavePage;
        //可设置以下属性
        MyPage.PageHeight :=5;
        MyPage.PageWidth :=10;  end;
      RvProject1.ExecuteReport('report1');
    end;我在系统没有装打印机时试的,效果图我发到你邮箱中了,
    ------------------------------------------------------------
    在错的时间遇见错的人 是一种伤痛 
    在错的时间遇见对的人 是一种遗憾 
    在对的时间遇见错的人 是一种心伤 
    只有在对的时间遇见对的人才是一种幸福