excel报表打印求助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → excel报表打印求助

共有2071人关注过本帖树形打印复制链接主题：excel报表打印求助

zsxx999	小大 1楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：五尾狐帖子：798 积分：9630 威望：0 精华：0 注册：2011/4/20 14:23:00	excel报表打印求助 Post By：2018/1/22 15:54:00 [只看该作者] 用户已被锁定

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/22 16:00:00 [只看该作者]

1、行高问题，看看

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=111039&skin=0

2、合并问题

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=108997&skin=0

zsxx999	小大 3楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：五尾狐帖子：798 积分：9630 威望：0 精华：0 注册：2011/4/20 14:23:00	Post By：2018/1/22 17:09:00 [只看该作者] 用户已被锁定

zsxx999	小大 4楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：五尾狐帖子：798 积分：9630 威望：0 精华：0 注册：2011/4/20 14:23:00	Post By：2018/1/22 17:16:00 [只看该作者] 用户已被锁定

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/22 17:20:00 [只看该作者]

以下是引用zsxx999在2018/1/22 17:09:00的发言：

谢谢教师的帮助！测试完全正确，可是我只想对生成的细节区实行自动行高，代码该如何修改。

Dim Rg As MSExcel.Range = Ws.UsedRange

改成

Dim Rg As MSExcel.Range = Ws.Range("e:e")

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/22 17:23:00 [只看该作者]

以下是引用zsxx999在2018/1/22 17:16:00的发言：
因为此表的上下部分格式都是固定的，中间生成的细节区才需要自动调整，调整后的行高变化了，表变得非常不好看，我想的是中间生成的细节区缩小字体来达到自动适应原来的行高

缩小字体填充，这样写代码

rg.ShrinkToFit = True

zsxx999	小大 7楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：五尾狐帖子：798 积分：9630 威望：0 精华：0 注册：2011/4/20 14:23:00	Post By：2018/1/23 6:38:00 [只看该作者] 用户已被锁定

有点甜

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/23 8:53:00 [只看该作者]

模板那里填入 [!填报日期]

打印报表前，先执行代码，如

Dim fdr As DataRow = DataTables("表A").find("", "日期 desc")

Dim d As Date = fdr("日期")

d = New Date(d.year, d.month, 1)

vars("填报日期") = d.adddays(-1)

下一主题 >> << 上一主题

主题：excel报表打印求助