以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  专业报表强制换页  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=142160)

--  作者：yifan3429 --  发布时间：2019/10/20 1:00:00 --  专业报表强制换页 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)

--  作者：有点酸 --  发布时间：2019/10/20 9:24:00 --   http://www.foxtable.com/webhelp/topics/1196.htm