代码如下
Dim djh As String = e.Form.Controls("djh").value
Dim Book As New XLS.Book(ProjectPath & "Attachments\采购订单PDF竖向.xls")
Dim fl As String = ProjectPath & "Reports\采购订单PDF竖向.xls"
Dim fl2 As String = ProjectPath & "Reports\采购订单" & djh & ".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")
'Dim Rg As MSExcel.Range = Ws.Range("A11:A20") '引用连续的单元格区域
Rg.WrapText = True
Rg.EntireRow.AutoFit '自动调整行高
wb.Saved = True
wb.ExportAsFixedFormat(MSExcel.XlFixedFormatType.xlTypePDF, fl2, MsExcel.XlFixedFormatQuality.xlQualityStandard, True, False, System.Reflection.Missing.Value, System.Reflection.Missing.Value, True, System.Reflection.Missing.Value)
app.quit
catch
app.quit
End try
excel 模板
现代码生成效果
通过以上代码备注列的自动行高已实现,但是下面条款和注意事项的行高会丢失,变成一小行,无法显示全文字,请教下这个是哪里问题 是WS.RANGE这里吗?
加好友 
发短信
Post By：2024/4/10 10:21:00 [只看该作者]
