격찬 신고로 페이지 크기를 설정하는 방법

Question

나는 Delphi 2010에서 프로젝트를 가지고 있으며, 코드를 통해 PDF 보고서를 생성하기 위해 RaveReport를 사용하고 있습니다. 제 질문은 가능한지 알고 싶습니다. 어떻게 크기를 설정할 수 있습니까? 내 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;