以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]窗体打印单据的时候如何加上页码？？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101854)

--  作者：yj1041132457 --  发布时间：2017/6/8 14:22:00 --  [求助]窗体打印单据的时候如何加上页码？？      怎么在打出来的单据上面加上页码

--  作者：有点蓝 --  发布时间：2017/6/8 15:26:00 --   参考：http://www.foxtable.com/webhelp/scr/1197.htm Dim doc As PrintDoc = e.Form.GernatePrintDoc() Dim rt As prt.RenderText  rt = New prt.RenderText \'设置文本对象的内容 rt.Text = "第[PageNo]页,共[PageCount]页" \'设置文本内容 rt.Style.TextAlignHorz = prt.AlignHorzEnum.Right \'靠右对齐 rt.Style.Borders.Top = New prt.LineDef(0.3, Color.Green) \'设置底边框 \'rt.Style.Padding.Bottom = 0.5 \'底端内容缩进0.5毫米 rt.Style.FontSize = 8 \'字体大小为8磅 Doc.PageFooter = rt  doc.Preview()