Foxtable(狐表)用户栏目专家坐堂 → EXCEL模板打印后窗口无法关闭


  共有2219人关注过本帖树形打印复制链接

主题:EXCEL模板打印后窗口无法关闭

帅哥哟,离线,有人找我吗?
by0521
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:144 积分:1614 威望:0 精华:0 注册:2019/3/28 14:49:00
EXCEL模板打印后窗口无法关闭  发帖心情 Post By:2019/5/13 15:37:00 [只看该作者]

错误提示:
.NET Framework 版本:2.0.50727.9035
Foxtable 版本:2018.10.9.1
错误所在事件:窗口,打包标签模板,Button2,Click
详细错误信息:
远程过程调用失败。 (异常来自 HRESULT:0x800706BE)

Button2 的代码如下
Dim Book As New XLS.Book(ProjectPath & "Attachments\打包标签模板.xls")
Dim fl As String = ProjectPath & "Reports\打包标签模板.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)  
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)
With Ws.PageSetup
    .LeftMargin = 2
    .RightMargin = 2
    .TopMargin = 1
    .BottomMargin = 1
    .CenterHorizontally = True
    .CenterVertically = True
    .Zoom = False 
    .FitToPagesTall = 1
End With
Ws.PrintOut (Copies:= 3 ,ActivePrinter:="POSTEK C168/300s ")   
Wb.Close
App.Quit

点击button2后,标签打印出来了,但是窗口无法关闭,得要从任务管理器里面 结束EXCEL进程。然后才能关闭窗口,还有错误提示。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/5/13 16:55:00 [只看该作者]

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("c:\aaa.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
With Ws.PageSetup
    .LeftMargin = 2
    .RightMargin = 2
    .TopMargin = 1
    .BottomMargin = 1
    .CenterHorizontally = True
    .CenterVertically = True
    .Zoom = False
    .FitToPagesTall = 1
End With
wb.saved = True
app.DisplayAlerts = False

Ws.PrintOut (Copies:= 3)  
Wb.Close
App.Quit


 回到顶部