我这个专业报表为什么不会自动换行的？满了一页后面就不出现了。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim doc As New PrintDoc() '定义一个报表

doc.PageSetting.PaperKind = 12 '纸张类型改为B4

doc.PageSetting.Landscape = True '横向打印

Dim s As String

s = "AAAAAAAAAAAAAAAAAAAAAAAA"

s = s & "BBBBBBBBBBBBBBBBBBBBBBBBBB"

s = s & "CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC"

s = s & "DDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"

s = s & "EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"

s = s & "FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"

Dim rt As New prt.RenderText '定义一个文本对象

Doc.PageSetting.LeftMargin = 10 '设置左边距

Doc.PageSetting.RightMargin = 10 '设置右边距

Doc.PageSetting.TopMargin = 20 '设置上边距

Doc.PageSetting.BottomMargin = 20 '设置下边距

rt.Width = "Parent.Width" '对象宽度等于页面宽度

rt.Height = "Parent.Height" '对象高度等于页面高度

rt.Style.Borders.All = New prt.Linedef(1, Color.Red) '设置边框

rt.Text = s '设置文本对象的内容

doc.Body.Children.Add(rt) '将文本对象加入到报表

doc.Preview() '预览

[此贴子已经被作者于2013-4-30 17:14:04编辑过]

主题：我这个专业报表为什么不会自动换行的？满了一页后面就不出现了。