以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  打印换行  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=8191)
--  作者：lihe60
--  发布时间：2010/9/15 16:42:00
--  打印换行
表A窗口按钮,如何实现字符长度超过一定度时自动换行?
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目82.table

[此贴子已经被作者于2010-9-15 16:46:19编辑过]
--  作者：mr725
--  发布时间：2010/9/15 18:21:00
--  
专业报表俺不行，不过帮助中有个属性 ：
WordWrap 文本长度超出对象宽度时，是否自动换行。

 

你试试看吧。
--  作者：lihe60
--  发布时间：2010/9/16 8:05:00
--  

这个属性不知怎么用,代码已经有WordWrap
--  作者：狐狸爸爸
--  发布时间：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编辑过]