主题：容器中加入过长文本的问题。

在容器中加入文本时，如果文本是一个长度不定的变量，怎样在一个容器中使其自动分页打印？

这是没有办法的。

现在的情况是短些的文本没问题，长的文本就另起一页开始打印，而且如果一页打印不下也看不到了。

不要指定容器的尺寸试试呢?就是删除这两句

如果你没有明确指定RenderArea的尺寸，那么RenderArea会自动根据子对象的位置和尺寸调整到最佳大小。

 

rt.Width = "Parent.Width" '宽度等于容器宽度
rt.Height = "Parent.Height" '高度等于容器高度

是的，不指定尺寸，就会自动换页。

 

 

这个我没有指定，换页能自动换，不过是整个文本内容全部换到下一页，而且第二页打印不下也不再自动换页

我测试可以自动换页啊，你看看：

 

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
Dim s As String
For i As Integer = 1 To 100
    s = s & "hello foxtbale "  & i & vbcrlf
Next
rt.Text = s '设置文本对象的内容
doc.Body.Children.Add(rt) '将文本对象加入到报表
doc.Preview() '预览

文本加入报表换页没有问题，加入容器就不行。另外，是否可以判断容器内文本的行数？

加入容器，也可以自动换页的：

 

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
Dim ra As new prt.RenderArea
Dim s As String
For i As Integer = 1 To 100
    s = s & "hello foxtbale "  & i & vbcrlf
Next
rt.Text = s '设置文本对象的内容
ra.Width = "Parent.Width"
ra.Children.Add(rt)
doc.Body.Children.Add(ra) '将文本对象加入到报表
doc.Preview() '预览