以文本方式查看主题

-  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=56620)

--  作者:lesliecheung912
--  发布时间:2014/9/9 23:55:00
--  [求助]Excel报表
想要在窗口中加一个按钮,按钮压下后调用已做好的报表A,窗口中有几条数据就让报表出几条数据。
现在代码为:XLS.Reports("报表A").Build()
但如果对窗口中的表进行筛选,那么以上代码的作用是不改变的,我想要的结果报表中的数据是筛选以后的,
也就是说当前表有几条数据就让报表出几条数据,
请问代码应该如何写呢?
附(报表):
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:出库报表.xls


[此贴子已经被作者于2014-9-9 23:57:24编辑过]

--  作者:Bin
--  发布时间:2014/9/10 8:35:00
--  
窗口是副本表吗?

不是的话,使用动态设置导出条件即可


条件设置为 tables(X).FIlter

--  作者:有点甜
--  发布时间:2014/9/10 9:04:00
--  
 回复楼上,你全选一下要打印的行,再生成即可。
--  作者:有点甜
--  发布时间:2014/9/10 9:06:00
--  

全选参考代码

 

Dim t As Table = Tables("表A")
t.Select(0,0,t.Rows.Count-1, t.Cols.Count-1)


--  作者:lesliecheung912
--  发布时间:2014/9/10 10:02:00
--  
谢谢甜姐!
[此贴子已经被作者于2014-9-10 10:04:22编辑过]

--  作者:有点甜
--  发布时间:2014/9/10 10:03:00
--  
 看4楼。
--  作者:lesliecheung912
--  发布时间:2014/9/10 16:18:00
--  
甜姐,如何在一个页面显示三个同样的内容然后打印呢?
我想要一式三份,而不在三张纸上去打印,那样太浪费

--  作者:有点甜
--  发布时间:2014/9/10 16:32:00
--  

 如果要做,需要在生成报表以后,用vba处理一下(复制两份)

 

 具体,你请把例子上传