[求助]窗口打印多页，如何设置第几页共几页 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]窗口打印多页，如何设置第几页共几页

共有1946人关注过本帖树形打印复制链接主题：[求助]窗口打印多页，如何设置第几页共几页

找到没重的名

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

加好友

发短信

等级：幼狐帖子：129 积分：2193 威望：0 精华：0 注册：2016/11/8 6:22:00

[求助]窗口打印多页，如何设置第几页共几页 发帖心情

Post By：2017/7/30 22:30:00 [只看该作者]

窗口中的table 有太多行打印时一页打不下，看到论坛里说：加入页号的方法很简单，只需在窗口适当位置插入一个Label，将其文本内容设为：第[PageNo]页,共[PageCount]页

但我看不懂？插入我会，可是在哪里设文本？

谢谢老师？

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/30 22:52:00 [只看该作者]

1、如果要在某一个位置显示，可以加入一个label控件，然后文本设置成第[PageNo]页,共[PageCount]页，其余不用修改。

2、如果要在页眉页脚显示，这样做

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Dim rt = New prt.RenderText '设置文本对象的内容
rt.Text = "第[PageNo]页,共[PageCount]页" '设置文本内容
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Right '靠右对齐
rt.Style.Borders.Bottom = New prt.LineDef(0.3, Color.Green) '设置底边框
rt.Style.Padding.Bottom = 0.5 '底端内容缩进0.5毫米
rt.Style.FontSize = 8 '字体大小为8磅
Doc.PageHeader = rt '作为页眉使用
doc.Preview