专业报表强制换页 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

rx = New prt.RenderText

rx.Style.FontBold = True '字体加粗

rx.Style.FontSize = 12 '大体大小为16磅

rx.Text = " 【TOGD# 】"

rx.Text = rx.Text & vbcrlf & "TOCASA 项目组全体成员"

'rx.Style.TextAlignHorz = prt.AlignHorzEnum.Right

rx.Style.TextAlignHorz = prt.AlignHorzEnum.Right '水平居中排列

rx.Style.Spacing.Bottom = 5 '和下面的对象(表格)距离3毫米

rx.Style.Spacing.Top= 30 '和上面的对象(表格)距离3毫米

rx.Style.LineSpacing = 150 '设置双倍行距

doc.Body.Children.Add(rx)

上面代码一页内容不够

下面内容我想重新一页开始，

什么方法可以实现，求助

'加入标题

rx = New prt.RenderText

rx.Style.FontBold = True '字体加粗

rx.Style.TextColor = Color.DeepSkyBlue '字符颜色设为红色

rx.Style.Font = New Font("宋体", 12, FontStyle.Bold) '设置字体

rx.Text = "附件二:"

rx.Text = rx.Text & vbcrlf & "关于五金:"

rx.Style.TextAlignHorz = prt.AlignHorzEnum.Right

rx.Style.TextAlignHorz = prt.AlignHorzEnum.Left '水平居中排列

rx.Style.Spacing.Bottom =1 '和下面的对象(表格)距离3毫米

rx.Style.Spacing.Top= 58 '和上面的对象(表格)距离3毫米

rx.Style.LineSpacing = 150 '设置双倍行距'

doc.Body.Children.Add(rx)

主题：专业报表强制换页