以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]生成报表能否自动行高,显示和打印不全  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=177445)

--  作者:rongtongzhice
--  发布时间:2022/5/22 23:18:00
--  [求助]生成报表能否自动行高,显示和打印不全
图片点击可在新窗口打开查看
生成报表能否自动行高,显示和打印不全

--  作者:有点蓝
--  发布时间:2022/5/22 23:20:00
--  
参考:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=153749
--  作者:rongtongzhice
--  发布时间:2022/5/22 23:48:00
--  回复:(rongtongzhice)[求助]生成报表能否自动行高,...
对我初学者来说,太难了图片点击可在新窗口打开查看
--  作者:有点蓝
--  发布时间:2022/5/23 8:43:00
--  
那就只能是生成报表后,打开文件手工调整了
--  作者:rongtongzhice
--  发布时间:2022/5/23 13:46:00
--  
老师,可不可以加上 判断一下   字符长度大于某个值时,启动自动行高
--  作者:有点蓝
--  发布时间:2022/5/23 13:55:00
--  
模板暂时没有这种功能。我反馈一下,看能不能加上
--  作者:rongtongzhice
--  发布时间: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

--  作者:rongtongzhice
--  发布时间:2022/5/23 14:15:00
--  
或者减小字号也可以
--  作者:有点蓝
--  发布时间:2022/5/23 14:29:00
--  
没有必要判断啊!

如果字符不超出行高,行高是不会变化的

--  作者:rongtongzhice
--  发布时间:2022/5/23 14:32:00
--  
老师,我现刚接触这个。有这个需求,导出的字段的字符有的很多。请老师帮忙看看怎么加上。