- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 页码问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15459)
-- 发布时间：2011/12/27 10:17:00
-- 页码问题
请教狐狸爸爸，在设计excel报表时，如何在excel模板制定单元格中插入页码，总页数？并不是页眉或页脚
-- 发布时间：2011/12/27 15:49:00
--
参考：
http://www.foxtable.com/help/topics/1956.htm
-- 发布时间：2011/12/28 0:07:00
--
此主题相关图片如下：a1.jpg
此主题相关图片如下：a3.png
此主题相关图片如下：a2.jpg
如上图。设计了2天，总是不满意，页码那里还是不会，能给设计个模板吗？
-- 发布时间：2011/12/28 0:11:00
--
此主题相关图片如下：a4.png
以下是我学做的，暂时只会做这么多，还请指教！在事件中动态页码的实现等等，先在这里谢了！最好给个模板，附代码！感激不尽！
-- 发布时间：2011/12/28 9:39:00
--
请教,要设计出上面的订单截图（a1,a2,a3）的样式，该如何设计，截图a4是自己看帮助设计的，页脚出不能动态加载，细节区该如何设置，还有动态加载页码，总页数。还请狐爸明示
-- 发布时间：2011/12/28 10:08:00
--
页码可以用帮助中的代码，但是总页数没有办法，只能用excel的页眉页脚实现。
-- 发布时间：2011/12/28 10:25:00
--
-- 发布时间：2011/12/28 10:29:00
--
先拜谢狐爸，纠结好几天了，狐爸帮帮忙吧！郁闷中......
-- 发布时间：2011/12/28 10:39:00
--
用专业报表，页码和总页数可以出现在任何位置，你在命令窗口执行下面的代码看看：
Dim doc As New PrintDoc \'定义一个报表
Dim rt As prt.RenderText \'定义一个文本对象
Dim s As String \'定义字符变量
s = "新华网绵阳5月16日电(记者孙承斌)16日上午,在四川抗震救灾的"
s = s & "危急时刻,中共中央总书记?国家主席?中央军委主席锦涛乘飞机赶往四川"
s = s & "省地震灾区,慰问灾区干部群众,看望奋战在抗震救灾第一线的部队官兵?公"
s = s & "安民警和医护人员,指导抗震救灾工作."
For i As Integer = 1 To 20
rt = New prt.RenderText
rt.Text = s \'设置文本对象的内容
rt.Style.TextIndent = 9 \'首行缩进9毫米
rt.Style.Spacing.Top = 5 \'每段间隔5毫米
rt.Style.LineSpacing = 150 \'1.5倍行距
doc.Body.Children.Add(rt) \'将文本对象加入到报表
rt = New prt.RenderText \'设置文本对象的内容
rt.Text = "第[PageNo]页,共[PageCount]页" \'设置文本内容
doc.Body.Children.Add(rt) \'将文本对象加入到报表
Next
doc.Preview() \'预览
学一下专业报表吧，更加灵活多变。
-- 发布时间：2011/12/28 13:12:00
--
谢谢狐狸爸爸！明白了，看来不用纠结此问题了！只能继续学习了！