| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- excel报表打印求助 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=113752) |
| -- 作者：有点甜 -- 发布时间：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
|
| -- 作者：有点甜 -- 发布时间：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") |
| -- 作者：有点甜 -- 发布时间：2018/1/22 17:23:00 -- 以下是引用zsxx999在2018/1/22 17:16:00的发言：
因为此表的上下部分格式都是固定的，中间生成的细节区才需要自动调整，调整后的行高变化了，表变得非常不好看，我想的是中间生成的细节区缩小字体来达到自动适应原来的行高
缩小字体填充，这样写代码
rg.ShrinkToFit = True |
| -- 作者：有点甜 -- 发布时间：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) |