- 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=69498)
-- 发布时间：2015/6/6 10:02:00
-- 关于打印Excel自动换行
设置成多行，成这样了，但是我理想的结果是多行并且字迹是清楚可见的，可以设置吗？
此主题相关图片如下：1.png
-- 发布时间：2015/6/6 10:22:00
--
有人回应下吗？着急
-- 发布时间：2015/6/6 11:04:00
--
可以设置
- 如果要调整工作表全部单元格的大小，可以使用Cells属性。如：
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Cells
Rg.EntireColumn.AutoFit \'自动调整列宽
Rg.EntireRow.AutoFit \'自动调整行高
App.Visible = True
-- 发布时间：2015/6/6 11:57:00
--
只是高度调整了啊，后面有内容没有显示出来
此主题相关图片如下：2.png
-- 发布时间：2015/6/6 11:59:00
--
取消自动列宽,设置可以折行
然后才设置自动行高
-- 发布时间：2015/6/6 13:12:00
--
设置可以折行怎么设置
-- 发布时间：2015/6/6 15:20:00
--
亲回应下啊
-- 发布时间：2015/6/7 0:23:00
--
excel表格 右键 设置单元格属性- 文本控制-自动换行
此主题相关图片如下：qq截图20150607002135.png
-- 发布时间：2015/6/7 9:52:00
--
看8楼设置自动换行；
代码这样写
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Cells
\'Rg.EntireColumn.AutoFit \'自动调整列宽
Rg.EntireRow.AutoFit \'自动调整行高
App.Visible = True
-- 发布时间：2015/6/8 8:47:00
--
我已经设置自动换行属性了，但是结果就是如四楼