- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]生成报表能否自动行高，显示和打印不全 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=177445)
-- 发布时间：2022/5/22 23:18:00
-- [求助]生成报表能否自动行高，显示和打印不全
生成报表能否自动行高，显示和打印不全
-- 发布时间：2022/5/22 23:20:00
--
参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=153749
-- 发布时间：2022/5/22 23:48:00
-- 回复：（rongtongzhice）[求助]生成报表能否自动行高，...
对我初学者来说，太难了
-- 发布时间：2022/5/23 8:43:00
--
那就只能是生成报表后，打开文件手工调整了
-- 发布时间：2022/5/23 13:46:00
--
老师，可不可以加上 判断一下 字符长度大于某个值时，启动自动行高
-- 发布时间：2022/5/23 13:55:00
--
模板暂时没有这种功能。我反馈一下，看能不能加上
-- 发布时间：2022/5/23 14:11:00
-- [求助]生成报表能否自动行高，显示和打印不全
老师，看看在这个代码的基础上能不能加个判断条件
自动行高
Dim Book As New XLS.Book(ProjectPath & "Attachments\\卷内目录.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
Dim fl As String = ProjectPath & "Reports\\卷内目录.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook =App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
rg.Formula = rg.Formula
Rg.WrapText = True
\'Rg.EntireColumn.AutoFit \'自动调整列宽
Rg.EntireRow.AutoFit \'自动调整行高
app.visible = True
-- 发布时间：2022/5/23 14:15:00
--
或者减小字号也可以
-- 发布时间：2022/5/23 14:29:00
--
没有必要判断啊！
如果字符不超出行高，行高是不会变化的
-- 发布时间：2022/5/23 14:32:00
--
老师，我现刚接触这个。有这个需求，导出的字段的字符有的很多。请老师帮忙看看怎么加上。