Foxtable(狐表)用户栏目专家坐堂 → Excel报表直接打印


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

主题:Excel报表直接打印

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


加好友 发短信
等级:小狐 帖子:366 积分:3558 威望:0 精华:0 注册:2016/5/25 21:31:00
Excel报表直接打印  发帖心情 Post By:2018/10/10 15:29:00 [显示全部帖子]

现代码为
Dim Book As New XLS.Book(ProjectPath & "templets\打印标签.xls")
Dim r As Row = e.Form.controls("标签明细").Table.Current
Dim fl As String = "打印标签1.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)

Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
先生成EXCEL并打开,然后手工打印
如何实现生成EXCLE后不需要打开,并直接打印,谢谢老师

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


加好友 发短信
等级:小狐 帖子:366 积分:3558 威望:0 精华:0 注册:2016/5/25 21:31:00
  发帖心情 Post By:2018/10/11 0:50:00 [显示全部帖子]

老师,按钮下代码,在开发者未发布模式可以正常使用,发布后在本机和内网其它电脑均提示:打开文件失败!
.NET Framework 版本:2.0.50727.8669
Foxtable 版本:2018.10.9.1
错误所在事件:窗口,打印标签,Button2,Click
详细错误信息:
打开存储文件失败。

请问老师什么原因

Dim Book As New XLS.Book(ProjectPath & "templets\打印标签.xls")
Dim r As Row = e.Form.controls("标签明细").Table.Current
Dim fl As String = "d:\print.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)

Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
'Dim Proc As New Process '打开工作簿
'Proc.File = fl
'Proc.Start()
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("d:\print.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.PrintOut
Wb.Close
App.Quit

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


加好友 发短信
等级:小狐 帖子:366 积分:3558 威望:0 精华:0 注册:2016/5/25 21:31:00
  发帖心情 Post By:2018/10/11 8:55:00 [显示全部帖子]

老师还是一样问题,发布后提示打开存储文件失败

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


加好友 发短信
等级:小狐 帖子:366 积分:3558 威望:0 精华:0 注册:2016/5/25 21:31:00
  发帖心情 Post By:2018/10/11 9:25:00 [显示全部帖子]

Dim Book As New XLS.Book(ProjectPath & "templets\打印标签.xls")
Dim r As Row = e.Form.controls("标签明细").Table.Current
Dim fl As String = "d:\print.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
老师,经测试上面代码就出现了打开错误

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


加好友 发短信
等级:小狐 帖子:366 积分:3558 威望:0 精华:0 注册:2016/5/25 21:31:00
  发帖心情 Post By:2018/10/11 9:29:00 [显示全部帖子]

文件模版和生成都没有问题,就是发布后用程序打不开文件来,不发布又可以,文件储存路径在电脑资源管理器上也能打开

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


加好友 发短信
等级:小狐 帖子:366 积分:3558 威望:0 精华:0 注册:2016/5/25 21:31:00
  发帖心情 Post By:2018/10/11 10:17:00 [显示全部帖子]

找到原因了,模版文件未随发布一起复制Publish文件中,谢谢老师

 回到顶部