Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共2 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:[求助]关于页码的求助

1楼
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 
2楼
有点蓝 发表于:2025/4/15 10:04:00
把页码加到表格里
共2 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .01953 s, 2 queries.