易表在线答疑技术与交流用户社区 → [讨论]不用报表,能否在打印时使用“缩放”功能,让表格适应打印纸张?


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

主题:[讨论]不用报表,能否在打印时使用“缩放”功能,让表格适应打印纸张?

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


加好友 发短信
等级:蝙蝠侠 帖子:852 积分:2798 威望:0 精华:0 注册:2007/1/19 15:57:00
[讨论]不用报表,能否在打印时使用“缩放”功能,让表格适应打印纸张?  发帖心情 Post By:2007/6/1 18:49:00 [只看该作者]

不知能否实现下列功能:
不用报表,在打印时使用“缩放”功能,让表格适应打印纸张(同时字体也按相应比例进行缩放)?

-=-=-=- 以下内容由 abcdzabcdz2007年06月01日 06:55pm 时添加 -=-=-=-
或在设置好纸张后,点击按纽,表格内容自动适应页面,无需人工调整。

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


加好友 发短信
等级:版主 帖子:4639 积分:133 威望:0 精华:0 注册:2006/9/23 19:23:00
  发帖心情 Post By:2007/6/1 19:03:00 [只看该作者]

呵呵,那还不简单,在页面设置中进行预览,然后,然后在表中补足空行不就可以了,不需要时删除和隐藏空行不就可以了

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


加好友 发短信
等级:版主 帖子:4639 积分:133 威望:0 精华:0 注册:2006/9/23 19:23:00
  发帖心情 Post By:2007/6/1 20:00:00 [只看该作者]

egd文件下载

不过,用这个公式可能能够解决您的问题:DelFor(GridName,[第一列] = "" And [第二列] = "" And [第二列] = "" And [第三列] = "") And If(Rows < [%单页行数%],AddRows(GridName,[%单页行数%] - Rows),If(Rows > [%单页行数%],AddRows(GridName,Mod(Rows,[%单页行数%])),""))

这段函数DelFor(GridName,[第一列] = "" And [第二列] = "" And [第二列] = "" And [第三列] = "") 主要是为了删除您以前添加的空行,避免重复添加出现打印空页面的情况


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


加好友 发短信
等级:蝙蝠侠 帖子:852 积分:2798 威望:0 精华:0 注册:2007/1/19 15:57:00
  发帖心情 Post By:2007/6/1 20:06:00 [只看该作者]

网友倒是热心人,行处理是一个方面;若列数较多(20列/30列),在B4/B5幅面打印,那里岂不很麻烦?

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


加好友 发短信
等级:版主 帖子:4639 积分:133 威望:0 精华:0 注册:2006/9/23 19:23:00
  发帖心情 Post By:2007/6/1 20:18:00 [只看该作者]

难办了,尽量隐藏一些不需要的列,如果列宽一样的话到是有办法!你好好琢磨SetColWidth()这个命令,试试配合if()函数,改变列宽怎么样!

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


加好友 发短信
等级:新手上路 帖子:296 积分:0 威望:0 精华:0 注册:2007/5/23 13:25:00
  发帖心情 Post By:2007/6/1 21:02:00 [只看该作者]

设计打印表时缩放吧

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


加好友 发短信
等级:蝙蝠侠 帖子:852 积分:2798 威望:0 精华:0 注册:2007/1/19 15:57:00
  发帖心情 Post By:2007/6/1 22:46:00 [只看该作者]

贺老师有一款软件可缩放列,但字体不能相应变化,详见<打印控制表>. 若能自动按比例缩放且字体按相应比例变化就好了.egd文件下载

 回到顶部