如何做到打印内容自动缩小字体，并且自动换行的

Excel3000

报表打印时候，如何做到打印内容自动缩小字体，并且自动换行的，
这样这样的打印效果：

sxgaobo

我的一个笨办法，希望能有所帮助
Y = LenB(StrConv([Text62], vbFromUnicode))

If Y <= 14 Then
   Me.Text62.TopMargin = 280
   Me.Text62.FontSize = 14
ElseIf Y > 14 And Y <= 28 Then
   Me.Text62.TopMargin = 150
   Me.Text62.FontSize = 14
ElseIf Y > 28 And Y <= 42 Then
   Me.Text62.TopMargin = 0
   Me.Text62.FontSize = 13
ElseIf Y > 42 And Y <= 53 Then
   Me.Text62.TopMargin = 0
   Me.Text62.FontSize = 12
End If