主题：专业报表WIdth值固定，text超长字号能否自动变小？

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "Hello Foxtable" '设置文本对象的内容
rt.Style.Borders.All = New prt.Linedef(0.3, Color.Red) '设置边框

Dim g As Graphics = basemainform.CreateGraphics
Dim size = g.MeasureString(rt.Text, rt.Style.Font)
msgbox(size.width/96*25.4)
msgbox(size.height/96*25.4)

rt.Width=20
doc.Body.Children.Add(rt) '将文本对象加入到报表
doc.Preview() '预览'

意思是。你可以设置文本的字体，直至其宽度在某个宽度范围内，即可。

如

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "Hello Foxtable" '设置文本对象的内容
rt.Style.Borders.All = New prt.Linedef(0.3, Color.Red) '设置边框
rt.Width=20

Dim g As Graphics = basemainform.CreateGraphics
Dim size As Object
Dim fsize As Double = rt.Style.Font.Size
Dim fname As String  = rt.Style.Font.Name

size = g.MeasureString(rt.Text, new font(fname, fsize))
Do While (size.width/96*25.4) > rt.Width.Value
    fsize -= 0.5
    size = g.MeasureString(rt.Text,  new font(fname, fsize))
Loop

rt.Style.Font = new font(fname, fsize)
doc.Body.Children.Add(rt) '将文本对象加入到报表
doc.Preview() '预览'