*计的打印摆放位置和页脚打印设置问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → *计的打印摆放位置和页脚打印设置问题

共有3622人关注过本帖树形打印复制链接主题：*计的打印摆放位置和页脚打印设置问题

lfz123

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

等级：二尾狐帖子：530 积分：4613 威望：0 精华：0 注册：2018/3/24 18:04:00

*计的打印摆放位置和页脚打印设置问题发帖心情

Post By：2020/9/18 10:04:00 [只看该作者]

Dim t As Table = Tables("明细账查询")

Dim doc As PrintDoc = e.Form.GernatePrintDoc()

For Each c As object In Doc.Body.Children

If Typeof c Is prt.RenderTable Then

For i As Integer = 0 To c.Rows.count-1

If c.cells(i,1).text Like "*计" Then

c.cells(i,1).SpanCols = 3

End If

第一个问题:我想把以上的结果:"*计",放在3行的中间位置

Dim rt As prt.RenderText '定义一个文本对象

rt.Text = "第[PageNo]页,共[PageCount]页" '设置文本内容

rt.Style.FontSize = 8 '字体大小为8磅

doc.PageFooter = rt '作为页脚使用

第二个问题:想设置如上的页脚

doc.Preview() '预览

有点蓝

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

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

Post By：2020/9/18 10:16:00 [只看该作者]

居中要设置样式：

http://www.foxtable.com/webhelp/topics/1207.htm

http://www.foxtable.com/webhelp/topics/1170.htm

Dim rt As new prt.RenderText '定义一个文本对象

主题：*计的打印摆放位置和页脚打印设置问题