默认就是自动换行的
Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "四川省普通初中四川省普通初中四川省普通初中四川省普通初中四川省普通初中四川省普通初中四川省普通初中四川省普通初中四川省普通初中"
Dim rg As New prt.RenderRectangle (108,74,New Prt.Linedef(2,Color.Red))
rg.x = 50
rg.y = 50
rg.Children.Add(rt)
doc.Body.Children.Add(rg) '将文本对象加入到报表
doc.Preview() '预览