[求助]窗体打印单据的时候如何加上页码？？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]窗体打印单据的时候如何加上页码？？

共有2168人关注过本帖树形打印复制链接主题：[求助]窗体打印单据的时候如何加上页码？？

yj1041132457

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：107 积分：927 威望：0 精华：0 注册：2017/3/25 18:17:00

[求助]窗体打印单据的时候如何加上页码？？ 发帖心情

Post By：2017/6/8 14:22:00 [只看该作者]

怎么在打出来的单据上面加上页码

图片点击可在新窗口打开查看

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110544 积分：562604 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/6/8 15:26:00 [只看该作者]

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()

主题：[求助]窗体打印单据的时候如何加上页码？？