主题：[求助]专业报表中表格里某一行的一个单元格里内容特别多，独占一页还放不下，这个单元格的内容被截断，怎么办？

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

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() '预览报表