异常来自 HRESULT:0x800401A8安装了SaveAsPDFandXPS也不行
按钮代码如下
Dim Book As New XLS.Book(ProjectPath & "templets\商品出仓单.xls")
Dim r As Row = e.Form.controls("出仓单").Table.Current
Dim fl As String = "\\192.168.1.18\$fill$\Cangcu\ChuC\" &r("出仓单号")& r("客户名称")& r("出仓类别") & "打印单.pdf"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
If Relations.Count > 0 Then
Book.Build() '生成细节区
Book.SaveToPDF(fl) '保存为PDF文件
Dim Proc As New Process '打开PDF文件
Proc.File = fl
Proc.Start()
Else
Relations.Add("商品出仓关联",DataTables("商品出仓_出仓单").DataCols("出仓单号"),DataTables("商品出仓_出仓单明细").DataCols("出仓单号"))
Book.Build() '生成细节区
Book.SaveToPDF(fl) '保存为PDF文件
Dim Proc As New Process '打开PDF文件
Proc.File = fl
Proc.Start()
End If
Relations.Delete("商品出仓关联")
r("附件") = r("出仓单号")& r("客户名称")& r("出仓类别") & "打印单.pdf"
加好友 
发短信
Post By：2018/6/6 14:14:00 [只看该作者]
