上图先,在表格底下加上一行文本出现了图中的分页现象,底下还有这么多空白文字就跑下页去,请教老师怎么禁止分页?
rx = New prt.RenderTextrx.Text = "经办人: " & Tables("订单").Current("经办人") rx.Style.FontBold = True '字体加粗rx.Style.FontSize = 11 '大体大小为16磅rx.Style.Spacing.Top = 3rx.Style.TextAlignHorz = prt.AlignHorzEnum.Right '水平靠右doc.Body.Children.Add(rx)