以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]专业报表中表格里某一行的一个单元格里内容特别多，独占一页还放不下，这个单元格的内容被截断，怎么办？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89846)
--  作者：wooego
--  发布时间：2016/8/31 9:23:00
--  [求助]专业报表中表格里某一行的一个单元格里内容特别多，独占一页还放不下，这个单元格的内容被截断，怎么办？
如题，
刚才描述可能有歧义。
比如，示例中的：

Dim doc As New PrintDoc \'创建一个报表
Dim rt As New prt.RenderTable \'创建一个表格对象
Dim rx As prt.RenderText \'定义一个文本对象
doc.Body.Children.Add(rt) \'将表格对象加入到报表中
rt.Style.GridLines.All = New prt.LineDef \'设置网格线
\'下面的代码向表格中填入值
For r As Integer = 0 to 5
If r <> 1 Then
For c As Integer = 0 to 5
rx = New prt.RenderText \'创建一个新的文本对象
rx.text = r & "," & c \'设置文本对象的内容
rt.Cells(r, c).RenderObject = rx \'放置在单元格中
Next
End If
Next
\'创建一个新的文本对象，内容较长。
rx = New prt.RenderText
rx.text = "这个文本非常长，以至于一页都放不下这个文本非常长，以至于一页都放不下这个文本非常长，以至于一页都放不下这个文本非常长，以至于一页都放不下这个文本非常长，以至于一页都放不下这个文本非常长，以至于一页都放不下这个文本非常长，以至于一页都放不下这个文本非常长，以至于一页都放不下这个文本非常长，以至于一页都放不下这个文本非常长，以至于一页都放不下这个文本非常长，以至于一页都放不下这个文本非常长，以至于一页都放不下这个文本非常长，以至于一页都放不下这个文本非常长，以至于一页都放不下这个文本非常长，以至于一页都放不下这个文本非常长，以至于一页都放不下这个文本非常长，以至于一页都放不下这个文本非常长，以至于一页都放不下这个文本非常长，以至于一页都放不下这个文本非常长，以至于一页都放不下这个文本非常长，以至于一页都放不下这个文本非常长，以至于一页都放不下这个文本非常长，以至于一页都放不下这个文本非常长，以至于一页都放不下这个文本非常长，以至于一页都放不下这个文本非常长，以至于一页都放不下这个文本非常长，以至于一页都放不下这个文本非常长，以至于一页都放不下这个文本非常长，以至于一页都放不下这个文本非常长，以至于一页都放不下这个文本非常长，以至于一页都放不下这个文本非常长，以至于一页都放不下这个文本非常长，以至于一页都放不下这个文本非常长，以至于一页都放不下这个文本非常长，以至于一页都放不下这个文本非常长，以至于一页都放不下——over。"

rt.Cells(4,3).RenderObject = rx
doc.Preview() \'预览报表

[此贴子已经被作者于2016/8/31 19:18:10编辑过]
--  作者：有点蓝
--  发布时间：2016/8/31 9:34:00
--  
看看：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=15009
--  作者：wooego
--  发布时间：2016/8/31 19:24:00
--  
以下是引用有点蓝在2016/8/31 9:34:00的发言：
看看：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=15009
水平不够，没看懂。
--  作者：狐狸爸爸
--  发布时间：2016/9/1 8:06:00
--  

这没有好的办法，一个格子放不下，那就改变一下思路，例如这一列的列宽设置大一些，如果还是放不下，就不用打印表格的方式打印，象打印简历这样去打印。

 

 

Dim doc As New PrintDoc \'创建一个报表
Dim rt As New prt.RenderTable \'创建一个表格对象
Dim rx As prt.RenderText \'定义一个文本对象
doc.Body.Children.Add(rt) \'将表格对象加入到报表中
rt.Style.GridLines.All = New prt.LineDef \'设置网格线
\'下面的代码向表格中填入值
For r As Integer = 0 To 5
    If r <> 1 Then
        For c As Integer = 0 To 5
            rx = New prt.RenderText \'创建一个新的文本对象
            rx.text = r & "," & c \'设置文本对象的内容
            rt.Cells(r, c).RenderObject = rx \'放置在单元格中
        Next
    End If
Next
\'创建一个新的文本对象,内容较长.
rx = New prt.RenderText
rx.text = "这个文本非常长,以至于一页都放不下这个文本非常长,以至于一页都放不下这个文本非常长,以至于一页都放不下这个文本非常长,以至于一页都放不下这个文本非常长,以至于一页都放不下这个文本非常长,以至于一页都放不下这个文本非常长,以至于一页都放不下这个文本非常长,以至于一页都放不下这个文本非常长,以至于一页都放不下这个文本非常长,以至于一页都放不下这个文本非常长,以至于一页都放不下这个文本非常长,以至于一页都放不下这个文本非常长,以至于一页都放不下这个文本非常长,以至于一页都放不下这个文本非常长,以至于一页都放不下这个文本非常长,以至于一页都放不下这个文本非常长,以至于一页都放不下这个文本非常长,以至于一页都放不下这个文本非常长,以至于一页都放不下这个文本非常长,以至于一页都放不下这个文本非常长,以至于一页都放不下这个文本非常长,以至于一页都放不下这个文本非常长,以至于一页都放不下这个文本非常长,以至于一页都放不下这个文本非常长,以至于一页都放不下这个文本非常长,以至于一页都放不下这个文本非常长,以至于一页都放不下这个文本非常长,以至于一页都放不下这个文本非常长,以至于一页都放不下这个文本非常长,以至于一页都放不下这个文本非常长,以至于一页都放不下这个文本非常长,以至于一页都放不下这个文本非常长,以至于一页都放不下这个文本非常长,以至于一页都放不下这个文本非常长,以至于一页都放不下这个文本非常长,以至于一页都放不下--over."
rt.Cells(4,3).RenderObject = rx
rt.Cols(3).width = 50
doc.Preview() \'预览报表