主题：打印多关联标问题

人员名单表关联在职人员收入表和离退休人员收入表两个子表，现需要打印两个关联子表。每个关联子表需要有页小计和合计。模版设计见附件，现显示不正常。第二张子表数据提取，如何解决？
此主题相关图片如下：2016-03-02_10-03-59.png

1、用一个xls文件，做两个sheet，设计好模板；

 

2、生成报表后，用代码把两个sheet的内容合并到一起即可。

 

比如你生成了报表 d:\text.xls

 

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
Dim Ws1 As MSExcel.WorkSheet = Wb.WorkSheets("sheet1") '指定要复制的工作表
Dim Ws2 As MSExcel.WorkSheet = Wb.WorkSheets("sheet2")
Dim Ws3 As MSExcel.WorkSheet = Wb.WorkSheets("sheet3")

Ws1.UsedRange.Copy
ws3.Cells(1,1).Select
ws3.paste
Ws2.UsedRange.Copy
'ws3.Cells(1,Ws1.UsedRange.Columns.Count).Select '横向拷贝
ws3.Cells(Ws1.UsedRange.Rows.Count,1).Select '纵向拷贝
ws3.paste

'Wb.Save
app.Visible = True
'App.Quit