Foxtable(狐表)用户栏目专家坐堂 → EXCEL报表中,如何设置子表打印行数?


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

主题:EXCEL报表中,如何设置子表打印行数?

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


加好友 发短信
等级:幼狐 帖子:156 积分:1627 威望:0 精华:0 注册:2011/4/20 10:44:00
EXCEL报表中,如何设置子表打印行数?  发帖心情 Post By:2011/11/9 18:18:00 [只看该作者]

EXCEL报表中,如何设置子表打印行数?

 

EXCEL报表,可以主表子表打印,如果我主表打印后,子表只打印4行(可能子表数据有10行或更多,只打印前4行),如不足4行自动填空行,这个如何设置,或如何实现。

 

例如:

excel报表设置时

 

<主表>XXXX

 

<子表>这样设置,会将子表数据都打出来,如果没有数据,就不会打印(这个子表如何设置,能打印指定的行数,如没记录就填空行)

 

<主表>


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


加好友 发短信 F6
等级:狐精 帖子:3036 积分:19223 威望:0 精华:2 注册:2008/9/1 7:50:00
  发帖心情 Post By:2011/11/9 18:25:00 [只看该作者]


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


加好友 发短信
等级:幼狐 帖子:156 积分:1627 威望:0 精华:0 注册:2011/4/20 10:44:00
  发帖心情 Post By:2011/11/10 10:20:00 [只看该作者]

不是要自动添加空行功能,而是要指定行数功能。

如果<=4,自动添加到4行,如果>4行,只保留前4行。


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/11/10 10:23:00 [只看该作者]

二楼没有错

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


加好友 发短信
等级:幼狐 帖子:156 积分:1627 威望:0 精华:0 注册:2011/4/20 10:44:00
  发帖心情 Post By:2011/11/10 10:50:00 [只看该作者]

如果二楼没有错,就只有两种可能:

1、没有明白我要表达的意思。或说没明白我的需求。

我再说明一下:

excel报表设置时

 

<主表>XXXX

 

<子表,-4>  这样设置,会将子表数据都打出来,如果没有数据,就不会打印(这个子表如何设置,能打印指定的行数,如没记录就填空行)

 

<主表>

 

2、程序有BUG。


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/11/10 11:12:00 [只看该作者]

如果子表没有数据,确实不会打印的。

变通一下,自己写一个打印代码,如果子表没有数据,就Tables("父表.子表").AddNew增加一行,打印完成再Tables("父表.子表").Current.Delete

 

dim cnt As  integer Tables("父表.子表").Rows.Count

if cnt = 0 then

   Tables("父表.子表").AddNew

end if

'打印代码

if cnt =0 then

    Tables("父表.子表").Current.Delete

end if


 回到顶部