- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- excel报表自动行高 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145025)
-- 发布时间：2020/1/6 13:40:00
-- excel报表自动行高
excel报表自动行高可以用Rg.EntireRow.AutoFit来实现，但有个问题，这个方法是对所有行都自动行高，现在仅希望对细节区的行自动行高，其他行固定行高，如何实现？
-- 发布时间：2020/1/6 14:22:00
--
Rg设置为细节区，如：Rg = Ws.Range("A3:B5") \'a3为细节区起始单元格，B5为细节区结束单元格
-- 发布时间：2020/1/7 14:27:00
--
已上传实例，希望仅对订单细节区自动行高，产品名称和产品ID两行固定行高
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:自动行高.rar |
-- 发布时间：2020/1/7 14:44:00
--
Dim Rg As MSExcel.Range = Ws.Range("B4")
-- 发布时间：2020/1/7 16:16:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:自动行高.rar |
这样只有第一条记录自动行高，后面两条记录没能自动行高，而且用自动行高每次都会弹出这个错误提示，为什么？
此主题相关图片如下：微信图片_20200107135712.png
-- 发布时间：2020/1/7 16:23:00
--
要自己计算总共生成了几行明细： Dim Rg As MSExcel.Range = Ws.Range("B4:B" & Ws.Rows.Count - 4)
我测试没有提示上面的错误
-- 发布时间：2020/1/7 21:45:00
--
可以了，就是有个小问题，这样生成后的excel文本会最小化在下面的任务栏中，可否让其最大化直接显示。
-- 发布时间：2020/1/7 22:12:00
--
参考：http://www.foxtable.com/webhelp/topics/2713.htm
-- 发布时间：2020/1/8 16:16:00
--
如果我想生成后直接打印出来，代码应该怎么写？
-- 发布时间：2020/1/8 16:23:00
--
参考：http://www.foxtable.com/webhelp/topics/2121.htm
看打印输出