以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  单元格多行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96772)

--  作者:llh0824
--  发布时间:2017/2/27 18:45:00
--  单元格多行
请教一下,单元格中单列多行字符如何在打印出来的格式也保持多行,字段在打印文件的表头上
[此贴子已经被作者于2017/2/27 18:45:25编辑过]

--  作者:有点蓝
--  发布时间:2017/2/27 20:10:00
--  
怎么样打印的?
--  作者:llh0824
--  发布时间:2017/2/28 7:49:00
--  
套打设置这列在table中是多行的,打印出来字全在一行上了
图片点击可在新窗口打开查看此主题相关图片如下:{6ae56379-ff46-4fda-8b26-dabbd21c86cc}.bmp
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2017/2/28 8:49:00
--  
设置模板的时候,把单元格设置为“自动换行”
--  作者:有点色
--  发布时间:2017/2/28 9:31:00
--  

 可以生成以后,用vba处理下

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单.xls")
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.Cells
Rg.WrapText = True
\'Rg.EntireColumn.AutoFit   \'自动调整列宽
Rg.EntireRow.AutoFit  \'自动调整行高
App.Visible = True

 


--  作者:llh0824
--  发布时间:2017/2/28 16:09:00
--  
谢谢,我去试下