如何使用狂野報告設置頁面大小

Question

我在Delphi 2010中有一個項目，我正在使用RaveReport通過代碼生成PDF報告，我的問題是我想知道它是否可行以及如何設置大小（高度和寬度）我的PDF頁面。

我嘗試過，但沒有結果：

var PWidth: Double; 

PWidth := 20; 
System.BaseReport.PageWidth := PWidth; 

並試用了此：

System.BaseReport.SetPaperSize(DMPAPER_USER, 2100, 1400); 

任何解決方案？

Answer 1

解決我的問題：

procedure TfrmLogger.RvSystemBeforePrint(Sender: TObject); 
begin 
    with Sender as TBaseReport do 
    begin 
     Units := unInch; 
     UnitsFactor := 1; 
     SetPaperSize(DMPAPER_USER, 21, 29.7); 
     Units := unCM; 
     UnitsFactor := 2.54; 
    end; 
end;