以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=157630)

--  作者：魏福庆 --  发布时间：2020/10/23 13:14:00 --  [求助] 如何对基于模板的Excel报表的行高进行自动设置，细节区生成后自动调整行高？多谢

--  作者：有点蓝 --  发布时间：2020/10/23 13:41:00 --   要生成报表后使用代码调整：http://www.foxtable.com/webhelp/topics/2121.htm

--  作者：魏福庆 --  发布时间：2020/10/23 16:15:00 --   老师可否举例说明下，我刚学，不太懂，代码还没有完全理解透彻！

--  作者：有点蓝 --  发布时间：2020/10/23 16:31:00 --   比如： Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单.xls") Dim fl As String = ProjectPath & "Reports\\出库单.xls" Dim fl2 As String = ProjectPath & "Reports\\出库单.pdf" Book.Build() \'生成细节区 Book.Save(fl) Dim App As New MSExcel.Application try     Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)     Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)     Dim Rg As MSExcel.Range = Ws.Columns("F")     Rg.WrapText = True     Rg.EntireRow.AutoFit  \'自动调整行高     wb.Save() App.Visible = True     catch     app.quit End try

--  作者：魏福庆 --  发布时间：2020/10/24 15:27:00 --   多谢老师，按你这个简单修改下已经实现功能！