Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]新增行数超出窗口时


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

主题：[求助]新增行数超出窗口时
帅哥哟，离线，有人找我吗？
CoderToSinger
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：88 积分：566 威望：0 精华：0 注册：2017/11/13 16:55:00 		[求助]新增行数超出窗口时  发帖心情 Post By：2017/12/5 17:01:00 [显示全部帖子]

我这样一个窗口,其中一个有新增按钮

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20171205165011.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20171205165041.png
图片点击可在新窗口打开查看
当新增行大于等于5行时,打印页面一页无法显示所有行
但我又想在一页内能看见所有的行该怎么做?
能设置超出窗口时缩放整个窗口么,如果能,怎么设置呢?
如果不能缩放,有没有别的方法能完成这样的需求?
求指教
 回到顶部
帅哥哟，离线，有人找我吗？
CoderToSinger
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：88 积分：566 威望：0 精华：0 注册：2017/11/13 16:55:00 		  发帖心情 Post By：2017/12/5 17:17:00 [显示全部帖子]

我在帮助文档找到了相关的东西

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20171205171345.png
图片点击可在新窗口打开查看
勾选单页压缩后,但是我在预览打印中看到的效果还是一样
是因为他只针对直接打印的问题么?
 回到顶部
帅哥哟，离线，有人找我吗？
CoderToSinger
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：88 积分：566 威望：0 精华：0 注册：2017/11/13 16:55:00 		  发帖心情 Post By：2017/12/5 18:48:00 [显示全部帖子]

设置了还是不行啊

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20171205184626.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20171205184459.png
图片点击可在新窗口打开查看
我觉得还是缩放吧,有什么方法么
 回到顶部
帅哥哟，离线，有人找我吗？
CoderToSinger
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：88 积分：566 威望：0 精华：0 注册：2017/11/13 16:55:00 		  发帖心情 Post By：2017/12/5 19:00:00 [显示全部帖子]

找倒是找到了,但是是Excel的

图片点击可在新窗口打开查看此主题相关图片如下：11.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：22.png
图片点击可在新窗口打开查看
doc报表的可以缩放么
 回到顶部
帅哥哟，离线，有人找我吗？
CoderToSinger
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：88 积分：566 威望：0 精华：0 注册：2017/11/13 16:55:00 		  发帖心情 Post By：2017/12/5 19:35:00 [显示全部帖子]

哇,没人么,还是不行

 回到顶部
帅哥哟，离线，有人找我吗？
CoderToSinger
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：88 积分：566 威望：0 精华：0 注册：2017/11/13 16:55:00 		  发帖心情 Post By：2017/12/8 9:15:00 [显示全部帖子]

怎么设置打印表格不换行

图片点击可在新窗口打开查看此主题相关图片如下：111.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
CoderToSinger
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：88 积分：566 威望：0 精华：0 注册：2017/11/13 16:55:00 		  发帖心情 Post By：2017/12/8 9:17:00 [显示全部帖子]

控件类型Normal 没有自动换行选项可以设置

 回到顶部
帅哥哟，离线，有人找我吗？
CoderToSinger
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：88 积分：566 威望：0 精华：0 注册：2017/11/13 16:55:00 		  发帖心情 Post By：2017/12/8 11:12:00 [显示全部帖子]

'当订单明细表行数超出范围时,修改表格的行高,最多12行
    Dim h As Integer
    Dim h1 As Integer
    Select Case dt.DataRows.Count
        Case 0 To 4
            h = 7
            h1 = 40
        Case 5 To 6
            h = 7
            h1 = 40
            For i As Integer =2 To dt.DataRows.Count
                rx1.Rows(i).Height =h
            Next
        Case 7 To 8
            h = 6.5
            h1 = 35
            '指定行高,以免文字长度超出表格宽度时自动换行
            For i As Integer =2 To dt.DataRows.Count
                rx1.Rows(i).Height =h
            Next
        Case 9 To 10
            h = 6
            h1 = 30
            For i As Integer =2 To dt.DataRows.Count
                rx1.Rows(i).Height =h
            Next
        Case 11 To 12
            h = 5.5
            h1 = 20
            For i As Integer =2 To dt.DataRows.Count
                rx1.Rows(i).Height =h
            Next
        Case >13 '当行数超出12行时换页
            h = 7
            h1 = 40
    End Select
    
    For i As Integer =2 To 5
        rt.Rows(i).Height =h
    Next
    rt.Rows(6).Height =h1
    For i As Integer =7 To 15
        rt.Rows(i).Height =h
    Next

已解决,虽然没有用大佬们提供的方案,但还是非常感谢
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询