以文本方式查看主题

-  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=70337)
--  作者：guning007
--  发布时间：2015/6/19 10:34:00
--  Excel报表可以把同一个报表在一个页面上打印多次吗？
像出库单和入库单这种单据通常要一式多联，我想做一个Excel报表，可以在一个页面把同样的一份出库单打两次。

但是多行细节区只能指定一个，是否能实现这个功能呢？

谢谢！
--  作者：大红袍
--  发布时间：2015/6/19 10:42:00
--  

 生成excel以后，用vba把内容拷贝一份就行，如代码

 

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) \'指定要复制的工作表

Ws.UsedRange.Copy
ws.Cells(Ws.UsedRange.Rows.Count+5,1).Select
ws.paste

app.Visible = True
 

 
--  作者：guning007
--  发布时间：2015/6/19 10:45:00
--  
谢谢红版，这段代码要写在哪里？
--  作者：大红袍
--  发布时间：2015/6/19 10:49:00
--  

 单独做一个按钮

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单.xls")
Dim fl As String = ProjectPath & "Reports\\出库单.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.UsedRange.Copy
ws.Cells(Ws.UsedRange.Rows.Count+5,1).Select
ws.paste

app.Visible = True
--  作者：guning007
--  发布时间：2015/6/19 12:38:00
--  
明白了，多谢红版指点。