在我常用的finereport中可以直接调整字体的大小的，稍微看了一下，如果想要在fastreport中实现字体自动缩小，可以进行如下操作：
在frxMemoView.OnAfterData/OnBeforePrint:
begin
while ((TfrmMemoView(Sender).CalcHeight-TfrxMemoView(Sender).LineSpacing)-TfrxMemoView(Sender).Height>0) do
begin
TfrxMemoView(Sender).Font.Size := TfrxMemoView(Sender).Font.Size-1;
end;
end;

 

//我最后是改成这样了

while (memo_ZKSM.CalcHeight-memo_ZKSM.LineSpacing-memo_ZKSM.Height>0) do
begin
memo_ZKSM.Font.Size := memo_ZKSM.Font.Size-1;

end;