以文本方式查看主题

-  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=103198)
--  作者：yjf123
--  发布时间：2017/7/3 8:58:00
--  excel不能打印多个数据表吗
如果不用关联表，excel不能打印多个数据表吗？
--  作者：有点甜
--  发布时间：2017/7/3 9:04:00
--  
 一个模板，只能打印一个表格，如果要打印多个，必须用多个模板多个sheet表格。
--  作者：yjf123
--  发布时间：2017/7/3 9:22:00
--  
用sql加载的数据表 没用关联表 这样还怎么设计报表了？
--  作者：有点甜
--  发布时间：2017/7/3 9:25:00
--  

 你可以动态设置管理

 

http://www.foxtable.com/webhelp/scr/1942.htm

 
--  作者：yjf123
--  发布时间：2017/7/3 9:47:00
--  
不明白为什么不让打印多个表？做不了？
[此贴子已经被作者于2017/7/3 9:47:24编辑过]
--  作者：有点甜
--  发布时间：2017/7/3 9:56:00
--  
以下是引用yjf123在2017/7/3 9:47:00的发言：
不明白为什么不让打印多个表？做不了？
[此贴子已经被作者于2017/7/3 9:47:24编辑过]

 

excel框架的问题，多个表的话，会比较复杂。

 

你可以在不同的sheet里面，生成各个报表，最后再用vba剪切合并到一个表里面去的吖

[此贴子已经被作者于2017/7/3 9:55:53编辑过]
--  作者：yjf123
--  发布时间：2017/7/3 9:56:00
--  
而且现在还加了打印后台数据的功能，非要用关联表，多麻烦
--  作者：有点甜
--  发布时间：2017/7/3 9:56:00
--  

 做两个报表 sheet1、sheet2，然后把两个报表合并起来，就是你要的结果

 

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
--  作者：yjf123
--  发布时间：2017/7/3 10:08:00
--  
谢谢版主，但是还是要提这个建议，希望可以打印多个表，虽然不知道是不是真的很复杂，关联表可以打印，想来也是可以做的。希望给狐爸提一下
--  作者：yjf123
--  发布时间：2017/7/3 10:09:00
--  
还有是，做bs版的话，excel报表是不是也可以远程打印了？