主题：关于打印Excel自动换行

我用这个怎么把模板调出来了，

无语，你到底有没有用9楼的代码啊，生成报表以后，用代码处理一下才行啊。

这个是需要放在

'Dim Book As New XLS.Book(ProjectPath & "Attachments\订单明细.xls")
'Book.Build() '生成细节区
'Book.Save(fl) '保存工作簿
'Dim Proc As New Process '打开工作簿
'Proc.File = fl
'Proc.Start()

之后的吗

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.EntireColumn.AutoFit   '自动调整列宽
Rg.EntireRow.AutoFit  '自动调整行高
'Rg.WrapText = True
'rg.ShrinkToFit = True
App.Visible = True

Attachment和Report为啥要存在两个啊

 

结果还是一样

此主题相关图片如下：1.png

正常的应该是如下

 

此主题相关图片如下：2.png

后面一段没有显示出来看见了吗？我已经设置自动换行了，你们看下怎么回事那

代码如下

DataTables("订单表").Save
DataTables("订单明细表").Save
Dim Book As New XLS.Book(ProjectPath & "Attachments\订单明细.xls")
Dim fl As String = ProjectPath & "Reports\订单明细.xls"
Dim App As New MSExcel.Application
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
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.EntireRow.AutoFit  '自动调整行高
App.Visible = True

 请上传具体例子。

 

 我总有一个疑问，就是为什么别人都能执行得好好的代码，所有到了你那里，全部无效了

你这个验证过了吗？那可以发给我吗？

  呃。。。楼上的全部的都是

我也很郁闷好不好，