主题：打印换行

表A窗口按钮,如何实现字符长度超过一定度时自动换行?

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目82.table

专业报表俺不行，不过帮助中有个属性 ：

WordWrap

文本长度超出对象宽度时，是否自动换行。

 

你试试看吧。

这个属性不知怎么用,代码已经有WordWrap

必须明确指定宽度，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() '预览