Foxtable(狐表)用户栏目专家坐堂 → excel不能打印多个数据表吗


  共有1967人关注过本帖树形打印复制链接

主题:excel不能打印多个数据表吗

帅哥哟,离线,有人找我吗?
yjf123
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:821 积分:6250 威望:0 精华:0 注册:2016/7/8 18:58:00
excel不能打印多个数据表吗  发帖心情 Post By:2017/7/3 8:58:00 [只看该作者]

如果不用关联表,excel不能打印多个数据表吗?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/3 9:04:00 [只看该作者]

 一个模板,只能打印一个表格,如果要打印多个,必须用多个模板多个sheet表格。

 回到顶部
帅哥哟,离线,有人找我吗?
yjf123
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:821 积分:6250 威望:0 精华:0 注册:2016/7/8 18:58:00
  发帖心情 Post By:2017/7/3 9:22:00 [只看该作者]

用sql加载的数据表 没用关联表 这样还怎么设计报表了?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/3 9:25:00 [只看该作者]

 你可以动态设置管理

 

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
yjf123
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:821 积分:6250 威望:0 精华:0 注册:2016/7/8 18:58:00
  发帖心情 Post By:2017/7/3 9:47:00 [只看该作者]

不明白为什么不让打印多个表?做不了?
[此贴子已经被作者于2017/7/3 9:47:24编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:821 积分:6250 威望:0 精华:0 注册:2016/7/8 18:58:00
  发帖心情 Post By:2017/7/3 9:56:00 [只看该作者]

而且现在还加了打印后台数据的功能,非要用关联表,多麻烦

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:821 积分:6250 威望:0 精华:0 注册:2016/7/8 18:58:00
  发帖心情 Post By:2017/7/3 10:08:00 [只看该作者]

谢谢版主,但是还是要提这个建议,希望可以打印多个表,虽然不知道是不是真的很复杂,关联表可以打印,想来也是可以做的。希望给狐爸提一下

 回到顶部
帅哥哟,离线,有人找我吗?
yjf123
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:821 积分:6250 威望:0 精华:0 注册:2016/7/8 18:58:00
  发帖心情 Post By:2017/7/3 10:09:00 [只看该作者]

还有是,做bs版的话,excel报表是不是也可以远程打印了?

 回到顶部
总数 11 1 2 下一页