有人在用fastReport作报表时处理过字体自动缩小的问题吗，怎么做

有人在用fastReport作报表时处理过字体自动缩小的问题吗，怎么做

 我来答

 

分享

举报浏览 49 次

1个回答

#吃瓜大会# Angelababy演技被吐槽， 你觉得她的演技怎么样？

最佳答案

热心网友 
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;

 

//我最后是改成这样了

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

end;