以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]Excel报表自动加上顶端标题行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=7914)
--  作者：易服
--  发布时间：2010/8/19 11:28:00
--  [求助]Excel报表自动加上顶端标题行
     以前EXCEL报表模板支持顶端标题行，现在如何在报表生成后用代码加上顶端标题行（不是

指定页首行的格式为<HeaderRow>）以便在打印时每页加上顶端标题行（Excel与VBA）。
--  作者：狐狸爸爸
--  发布时间：2010/8/19 11:37:00
--  
就用HeaderRow
--  作者：易服
--  发布时间：2010/8/19 15:14:00
--  
《FoxTable操控Excel全攻略》应该有办法，没有找到示例。<HeaderRow>不美观也不利于复制数据。
--  作者：whoami2012
--  发布时间：2013/1/25 10:52:00
--  
试下这段
    Dim Book As New XLS.Book(ProjectPath & "Attachments\\模板-拆解参数.xls")
    Dim fl As String = SpecialFolder.MyDocuments & "\\Reports\\拆解规范\\" & format(Date.Today(),"yyyy-MM-dd") & " 拆解参数.xls"
    StatusBar.Message2 = "已生成出库单，保存在【我的文档】下Roports\\拆解规范 文件夹，文件名为：" & format(Date.Today(),"yyyy-MM-dd") & " 拆解参数.xls"
    Book.Build() \'生成细节区
    Book.Save(fl) \'保存工作簿

    Dim App As New MSExcel.Application
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
    Ws.PageSetup.PrintTitleRows = "$1:$3"             \'打印行标题(在每一页的顶部重复出现，指定第1到3行为行标题)
    App.Visible = True
    Ws.PrintPreview
    App.Quit

使用时修改模板表名

[此贴子已经被作者于2013-1-25 10:56:00编辑过]
--  作者：9EQ98
--  发布时间：2014/4/15 14:03:00
--  解决问题
问题解决，但有点慢
--  作者：发财
--  发布时间：2014/5/30 7:27:00
--  
传个例子让大家学习一下吧！
--  作者：有点甜
--  发布时间：2014/5/30 9:22:00
--  
以下是引用发财在2014-5-30 7:27:00的发言：
传个例子让大家学习一下吧！

 

呃，这么简单的代码，还要传例子？

 

    Dim App As New MSExcel.Application

    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
    Ws.PageSetup.PrintTitleRows = "$1:$3"             \'打印行标题(在每一页的顶部重复出现，指定第1到3行为行标题)
    App.Visible = True
    Ws.PrintPreview
    App.Quit