- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何用代码给exceL报表设置顶端标题行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103751)
-- 发布时间：2017/7/16 11:29:00
-- 如何用代码给exceL报表设置顶端标题行
如题
-- 发布时间：2017/7/16 12:41:00
--
没看懂你指的是什么？截图或例子说明。
-- 发布时间：2017/7/17 7:07:00
--
框框的内容
此主题相关图片如下：无标题.png
-- 发布时间：2017/7/17 7:11:00
--
在使用“excel报表”功能的时候，使用这个截图设置顶端标题行，但打开exce表的时候无效。下面代码如何调整？
Dim Book As New XLS.Book(ProjectPath & "Attachments\\发票.xls") \'打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
\'Sheet(6,6).Value = "制单人:" & User.Name \'修改模板,加入制单人信息
Book.Build() \'生成细节区
Book.Save("c:\\reports\\发票.xls") \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = "c:\\reports\\发票.xls"
Proc.Start()
-- 发布时间：2017/7/17 9:13:00
--
生成报表后，用vba打开设置
http://www.foxtable.com/webhelp/scr/2121.htm
\'设置打印区域
.PrintArea = "A1:H10" \'打印工作表的指定区域
.PrintArea = Ws.UsedRange.Address \'打印工作表的使用区域
.PrintTitleColumns = Ws.Columns("A:H").Address \'打印列标题(在每一页的左边重复出现)
.PrintTitleRows = Ws.Rows(1).Address \'打印行标题(在每一页的顶部重复出现)
-- 发布时间：2017/7/17 13:26:00
--
试了一下，有错误提示
-- 发布时间：2017/7/17 14:07:00
--
贴出你写的代码。
-- 发布时间：2017/7/17 14:27:00
--
Dim Book As New XLS.Book(ProjectPath & "Attachments\\发票.xls") \'打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
\'Sheet(6,6).Value = "制单人:" & User.Name \'修改模板,加入制单人信息
Book.Build() \'生成细节区
Book.Save("c:\\reports\\发票.xls") \'保存工作簿
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("c:\\reports\\发票.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
With Ws.PageSetup
\'设置打印区域
\' .PrintArea = "A1:H10" \'打印工作表的指定区域
\' .PrintArea = Ws.UsedRange.Address \'打印工作表的使用区域
\' .PrintTitleColumns = Ws.Columns("A:H").Address \'打印列标题(在每一页的左边重复出现)
.PrintTitleRows = Ws.Rows(1).Address \'打印行标题(在每一页的顶部重复出现)
End With
App.Visible = True
Ws.PrintPreview
App.Quit
-- 发布时间：2017/7/17 14:30:00
--
测试没问题，你的报什么错？
-- 发布时间：2017/7/17 14:34:00
--
这个提示。[upload=png,无标题
[此贴子已经被作者于2017/7/17 15:03:18编辑过]