主题：专业报表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() '预览'

size.width/96*25.4 这个是计算 字符的长度嘛，如果width 的值小于这个数就会打不开是吧，

 

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

如

 

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() '预览'

mark 专业报表字体自动大小