- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- Excel报表：每页都要显示这个页脚，怎么办？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=9266)
-- 发布时间：2011/3/22 20:39:00
-- Excel报表：每页都要显示这个页脚，怎么办？
引用foxtable自带的例子：Excel报表 —— 分页汇总模板：
此主题相关图片如下：未命名.jpg
-- 发布时间：2011/3/22 20:44:00
--
再在这一行加上FooterRow，页尾区也可以多行的。
-- 发布时间：2011/3/22 21:04:00
--
再在这一行加上FooterRow，页尾区也可以多行的。
那样，总计行就有问题了···
-- 发布时间：2011/3/22 21:15:00
--
此主题相关图片如下：未命名1.jpg
-- 发布时间：2011/3/22 21:25:00
--
这个还真没有办法
-- 发布时间：2011/3/22 21:35:00
--
在设计模板时候，要不直接设置Excel的页眉页脚？
或者用代码设置：
http://help.foxtable.com/topics/1315.htm
-- 发布时间：2011/3/22 21:42:00
--
这个还真没有办法
哈哈， 也有投降的时候啊···
这样的话，Excel报表对会计凭证就无能为力了。 只好用打印窗口来解决了。当然用代码“强制换行”也能解决。
因为一个会计凭证可能要打多页，每页都要有制单、审核···等等，否则凭证就符合规范了。
那位shixia 狐友的http://www.datasoft.com.cn/dispbbs.asp?boardid=2&Id=9258 就不必要得到结果了。。。
-- 发布时间：2011/3/23 7:47:00
--
呵呵，我检查一下，看看为啥多行页尾汇总不正常。
-- 发布时间：2011/3/23 11:07:00
--
我这样处理了，分享一下：
Dim Book As New XLS.Book(ProjectPath & "Attachments\\分页汇总.xls")
Dim Sheet As XLS.Sheet
Book.Build()
Sheet = Book.Sheets(0)
Sheet.Rows.RemoveAt(Sheet.rows.count-2)
Sheet.Rows.RemoveAt(Sheet.rows.count-2)
For i As Integer = 2 To Sheet.rows.count-14 Step 14 \'> 这里的数字要根据你模板的情况设置
Sheet(i+12, 3).Value = "审核:"
Sheet(i+12, 6).Value = "制单:"
Next
Sheet(Sheet.rows.count,3).Value = "审核:"
Sheet(Sheet.rows.count-1,6).Value = "制单:"
Book.Save("C:\\foxtable\\CaseStudy\\Reports\\分页汇总2.xls")
Dim Proc As New Process
Proc.File = "C:\\foxtable\\CaseStudy\\Reports\\分页汇总2.xls"
Proc.Start()
模板这样该一下：
此主题相关图片如下：未命名.jpg
-- 发布时间：2011/3/23 11:18:00
--
最后一个的小计为啥远离大部队？