主题：如何设置特殊格式的模版文件

狐表的表数据如下

此主题相关图片如下：01.jpg

如果用正常的模版导出电子表，只需要“序号”“姓名”“考核”“职称”，那样打印出来就很窄，而且浪费纸张

 

能否按下面的图示来导出电子表：

1、每页3大列，列之间用双线分隔

2、显示页码

3、按姓名排序，且先显示“考核”为优秀的名单，再显示其他

此主题相关图片如下：03.jpg

 

此主题相关图片如下：04.jpg

 

上传需要修改的模版文件

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:模版文件.xls

能不能在狐表里生成电子表的3大列格式 然后把三个人组成的一行就当一条数据，然后导出电子表

重新设计了模版

此主题相关图片如下：341.jpg

第一页正常了，序号是1-15，16-30，31-45

  

此主题相关图片如下：342.jpg

 

第二页序号应该从46开始，但却是从16开始呢

 

此主题相关图片如下：343.jpg

怎么办呢，请专家指导指导！

还是不行，左边一列第一页是 1-15，第二页是45-60，两页之间相隔45个

现在是1，4，7，。。。两行时间相隔3个

此主题相关图片如下：344.jpg

把45个都写了

写成<教职工信息表,@1,15> 或<教职工信息表,@1,15>，答应都不对，模版文件为：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:年度考核名册导出模版2.xls

按照上面的要求打印职工时，每页纸分三列，无法生成所要的效果，就把模版改了一下

 

 

此主题相关图片如下：903.jpg

 

代码如下：

Dim Book As New XLS.Book(ProjectPath & "Attachments\年度考核名册导出模版.xls")   '打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet.Locked = True '禁止编辑
Sheet(1,3).Value = myDWMC '修改模板,加入制单人信息
Sheet(1,6).Value = CurrentY & "年" '修改模板,加入制单人信息
Sheet(1,8).Value = CurrentM & "月" '修改模板,加入制单人信息
Dim fl As String = ProjectPath & "电子表格\" & "年度考核结果审核名册.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
'Forms("考核工资汇总表窗体").Close
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

 

生成了下列的表:

 

此主题相关图片如下：904.jpg

 

有三个问题：

1、第二页打印的时候没有表头，虽然在模板里设置了顶端标题行。--（问题已经解决）

2、每页显示数据22行，在第二页没有22行时，没有用空行来补足。

3、能通过设计，把职工的1-22号 打印在第一页的左边第一列就更好了。

 

请高手帮助不吝指教！！

原来的问题：

 1、 已经解决，谢谢

 2、把<教职工信息表,@3,22>改成<教职工信息表,@3,-22>后，在表格最后还是没有添加空行,如果把3列改为1列就没有这个问题了。

 3、职工顺序按这个顺序排列

      1        2        3

      4        5        6

      7        8        9

      .... 

想改为下列方式

      1         23        45

      2         24        46

      3         25        47

      ...        ...         ...

      22       44         66

第1页比较容易生成 ，问题是第一页最后一号是66，到了第二页应该是67，但实际生成的第二页的号码从23开始

都解决了 ，谢谢诸位！