没有简便的方法。
如果要做，你可以设定几个等级，根据不同的字数，设定不同的font
Dim doc As New PrintDoc '创建一个报表
Dim rt As New prt.RenderTable '创建一个表格对象
Dim rx As prt.RenderText '定义一个文本对象
doc.Body.Children.Add(rt) '将表格对象加入到报表中
rt.Width = 120 '设置表格的宽度为120毫米
rt.Height = 100 '设置表格的高度为100毫米
rt.Style.GridLines.All = New prt.LineDef '设置网格线类型
rt.cols(0).Width = 50
rx = new prt.RenderText
rx.Style.Font = new Font("宋体", 7)
rx.Text = "快递费加快skfjskfjkasjfklsjdjfksf递费就"
rt.Cells(0, 0).RenderObject = rx
rt.Cells(0, 1).Text = "快递费加快递费就"
doc.Preview() '预览报表
加好友 
发短信
Post By：2014/1/13 21:10:00 [显示全部帖子]
