| 以文本方式查看主题 - 易表在线答疑 (http://egrid2000.com/dvbbs/index.asp) -- 用户社区 (http://egrid2000.com/dvbbs/list.asp?boardid=2) ---- [讨论]不用报表，能否在打印时使用“缩放”功能，让表格适应打印纸张？ (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=8193) |
| -- 作者：abcdzabcdz -- 发布时间：2007/6/1 18:49:00 -- [讨论]不用报表，能否在打印时使用“缩放”功能，让表格适应打印纸张？ 不知能否实现下列功能： 不用报表，在打印时使用“缩放”功能，让表格适应打印纸张（同时字体也按相应比例进行缩放）？ -=-=-=- 以下内容由 abcdzabcdz 在 2007年06月01日 06:55pm 时添加 -=-=-=- 或在设置好纸张后，点击按纽，表格内容自动适应页面，无需人工调整。 |
| -- 作者：程兴刚 -- 发布时间：2007/6/1 19:03:00 -- 呵呵，那还不简单，在页面设置中进行预览，然后，然后在表中补足空行不就可以了，不需要时删除和隐藏空行不就可以了 |
| -- 作者：程兴刚 -- 发布时间：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 -- 发布时间：2007/6/1 20:06:00 -- 网友倒是热心人，行处理是一个方面；若列数较多（20列/30列），在B4/B5幅面打印，那里岂不很麻烦？ |
| -- 作者：程兴刚 -- 发布时间：2007/6/1 20:18:00 -- 难办了，尽量隐藏一些不需要的列，如果列宽一样的话到是有办法！你好好琢磨SetColWidth()这个命令，试试配合if()函数，改变列宽怎么样！ |
| -- 作者：为爱痴狂 -- 发布时间：2007/6/1 21:02:00 -- 设计打印表时缩放吧 |
| -- 作者：abcdzabcdz -- 发布时间：2007/6/1 22:46:00 -- 贺老师有一款软件可缩放列，但字体不能相应变化，详见＜打印控制表＞． 若能自动按比例缩放且字体按相应比例变化就好了．egd文件下载 |