FastReport文本框根据高度缩小字体

我尝试使用报表自带的设置，AutoShrink = FontSize​​ 并设置 AutoShrinkMinSize=10避免字体过小。

但这种方法只会在文本行超出文本框宽度时才会触发字体缩小，无法满足在不触及宽度时，多次换行导致高度不够的情况下缩小字体

因此我使用以下代码进行后台判断行数缩小字体：

private void Memo9_BeforePrint(object sender, EventArgs e)
    {
      //高度不够缩小字体
      TextObject textBox = sender as TextObject;  
      string text = textBox.Text;
      Font font = textBox.Font;
      float fontSize = font.Size;
      
      string REASON = Convert.ToString(Report.GetColumnValue("frxdsWF_PAY.REASON"));
      int lineCount2 = 0;
      using (StringReader reader = new StringReader(REASON))
      {
        while (reader.ReadLine() != null)
        {
          lineCount2++;
        }
      } 
      if(lineCount2>11)
      {
        fontSize = 10;
        textBox.Font = new Font(font.Name, fontSize, font.Style);
      }
      
    }

此方法不足的是只判断了文本行数大于设定高度的文本框行数极限（11行）时进行字体缩小到指定大小，无法根据具体多少行缩小几个字号去动态设置字号

有更加好的想法的朋友可以在评论区分享，感谢！