共4 条记录, 每页显示 10 条, 页签: [1]

标题：打印换行

1楼

lihe60 发表于：2010/9/15 16:42:00

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目82.table

[此贴子已经被作者于2010-9-15 16:46:19编辑过]

2楼

mr725 发表于：2010/9/15 18:21:00

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

WordWrap

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

你试试看吧。

3楼

lihe60 发表于：2010/9/16 8:05:00

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

4楼

狐狸爸爸 发表于：2010/9/16 10:10:00

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

[此贴子已经被作者于2010-9-16 10:29:28编辑过]

共4 条记录, 每页显示 10 条, 页签: [1]