主题：打印换行

必须明确指定宽度，wordwrap属性才会生效：

Dim doc As New PrintDoc() '定义一个报表
Dim rt As prt.RenderText '定义一个文本对象
Dim rm As prt.RenderEmpty '定一个空对象
For n As Integer =0 To 2
    rm = new prt.RenderEmpty '定义一个新的空对象
    doc.Body.Children.Add(rm) '加入到报表中
    rt = New prt.RenderText() '创建文本对象
    rt.Style.WordWrap =True
    rt.Text = Tables("表A").VALUE(0,n) '设置文本对象的内容
    rt.X = n*50  + 20 '指定水平位置
    rt.y =  20 '指定垂直位置
    rt.width = 20
    rt.Style.Borders.All = New prt.Linedef(1, Color.Red) '设置边框
    rt.Style.WordWrap =True
    doc.Body.Children.Add(rt) '将文本对象加入到报表
Next
doc.Preview() '预览