有人在用fastReport作报表时处理过字体自动缩小的问题吗，怎么做
最佳答案
热心网友 2017-07-14
在我常用的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;
在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;