패스트리포트 폰트 자동조절 스크립트

procedure Memo1OnAfterData(Sender: TfrxComponent);
begin
 Memo1.Font.Size:=10; 
 if Memo1.CalcWidth>Memo1.Width-Memo1.GapX*2 then
 Memo1.Font.Size:=Trunc(Memo1.Font.Size*((Memo1.Width-Memo1.GapX*2)/Memo1.CalcWidth)); 
end;

패스트리포트 폰트 자동조절 스크립트인데 이건 가로사이즈 조절하는 거다.

 

세로사이즈 조절하려면 잘 하면 된다.