.NET Framework 版本:2.0.50727.3655
Foxtable 版本:2017.3.18.1
错误所在事件:窗口,电汇凭证,Button2,Click
详细错误信息:
服务器出现意外情况。 (异常来自 HRESULT:0x80010105 (RPC_E_SERVERFAULT))
Dim pnt As WinForm.ComboBox = e.Form.Controls("printer")'取得打印机名称
Dim pntn As String = pnt.Text
SaveConfigValue("pntname1",pntn)
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)
Ws.PrintOut(ActivePrinter:=pntn)
App.quit