FastReport自动压缩字体

1、选中需要自动压缩字体的文本框，然后点击左侧事件，在OnBeforePrint后面双击进入代码页面。

2、在代码也中的下图位置加上下图脚本。控件名称改为当前选中的实际控件名（即下图左侧红框中的名称）。if Length(Memo38.value)>100 thenMemo38.Font.size:=7else Memo38.Font.size:=12;

3、预览打印效果如下图（备注同包装方式字段）