以文本方式查看主题 -  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=196281)

--  作者：2900819580 --  发布时间：2025/4/15 9:37:00 --  [求助]关于页码的求助 老师，以下是页码的代码，我想要 "制单：", "审核：", "批准："  和页码，但执行后只有页码了，怎么修改代码 \'~~页脚标准制作~~~~ rtb = New prt.RenderTable \'定义一个表格对象 Dim lms() As String = {"制单：", "审核：", "批准：" ｝ For i As Integer = 0 To lms.Length - 1 \' lm As String In lms     rt = New prt.RenderText \'定义一个文本对象     rt.Text = lms(i)\'设置文本对象的内容     rt.Style.Font = New Font("宋体", 11, FontStyle.Regular) \'设置字体     rtb.Cells(0, i).RenderObject = rt \'将文本对象放置在单元格中 Next \'~~~~~制作页码 doc.PageFooter = rtb rt = New prt.RenderText \'设置文本对象的内容 rt.Text = "第[PageNo]页,共[PageCount]页" \'设置文本内容 rt.Style.TextAlignHorz = prt.AlignHorzEnum.center \'靠右对齐 rt.Style.FontSize = 8 \'字体大小为8磅 rt.Style.Spacing.Bottom = 0.5 Doc.PageFooter = rt

--  作者：有点蓝 --  发布时间：2025/4/15 10:04:00 --   把页码加到表格里