以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于窗口按钮控件点击后自动连接打印报表  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=183951)

--  作者:divil
--  发布时间:2022/11/20 20:24:00
--  关于窗口按钮控件点击后自动连接打印报表
版主,您好!我在窗口设置按钮控件,同时在Click里面粘贴如下函数,但是应用窗口时点击打印报表时无法打印,”打开存储文件失败“,请问如何设置打印标签按钮控件,点击后希望能够打印报表,谢谢!
Dim Book As New XLS.Book(ProjectPath & "Attachments\\材料标签(准直器插针BOM核对表).xls")
Book.Build() 
Book.Save(ProjectPath & "Reports\\材料标签(准直器插针BOM核对表).xls")
Dim Proc As New Process
Proc.File = "c:\\reports\\材料标签(准直器插针BOM核对表).xls"
Proc.Start()





图片点击可在新窗口打开查看




图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2022/11/20 20:33:00
--  
Dim Book As New XLS.Book(ProjectPath & "Attachments\\材料标签(准直器插针BOM核对表).xls")
Book.Build() 
Book.Save(ProjectPath & "Reports\\材料标签(准直器插针BOM核对表).xls")
Dim Proc As New Process
Proc.File = ProjectPath & "Reports\\材料标签(准直器插针BOM核对表).xls"
Proc.Start()

--  作者:divil
--  发布时间:2022/11/20 20:44:00
--  我刚才将您发过来的代码粘贴后还是出现刚才的问题,麻烦您了。谢谢!
版主,您好!
我刚才将您发过来的代码粘贴后还是出现刚才的问题,麻烦您了。谢谢!
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2022/11/20 21:10:00
--  
1、模板路径不对: msgbox(ProjectPath & "Attachments\\材料标签(准直器插针BOM核对表).xls")
2、模板文件不存在
3、模板,或者报表文件处于打开状态



--  作者:divil
--  发布时间:2022/11/20 21:56:00
--  如何在窗口的按钮设置打印报表代码
版主,您好!
我按照下面代码试了还是不行,报表未打开,报表模版还在。路径估计代码没有写对。

Dim Book As New XLS.Book(F: \\ 制造三部管理软件开发版(20221120) \\ Attachments \\ 材料标签(准直器插针BOM核对表).xls")
Book.Build() 
Book.Save(F:\\制造三部管理软件开发版(20221120)\\Attachments"Reports \\ 材料标签(准直器插针BOM核对表).xls")
Dim Proc As New Process
Proc.File = F:\\制造三部管理软件开发版(20221120)\\Attachments"Reports \\ 材料标签(准直器插针BOM核对表).xls"
Proc.Start()

--  作者:有点蓝
--  发布时间:2022/11/20 22:13:00
--  
打开电脑资源管理器,看看模板文件真正的路径,直接复制