以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于当前表格打印  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=177318)

--  作者:wugang0131
--  发布时间:2022/5/17 16:01:00
--  关于当前表格打印
请教老师,在窗口上添加一个按钮,打印当前Excel表格,如何写代码?谢谢老师
--  作者:有点蓝
--  发布时间:2022/5/17 16:13:00
--  
方法1、http://www.foxtable.com/webhelp/topics/1145.htm
--  作者:wugang0131
--  发布时间:2022/5/17 16:21:00
--  
收到,谢谢蓝老师
--  作者:wugang0131
--  发布时间:2022/5/18 10:16:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:pfkdj253fwbe86un9xc~`35.png
图片点击可在新窗口打开查看


Dim Book As New XLS.Book(ProjectPath & "Attachments\\专家查询.xls")
Dim fl As String = ProjectPath & "Reports\\专家查询.xls"
Book.Build() 
Book.Save(fl) 
Dim Proc As New Process 
Proc.File = fl
Proc.Start()

蓝老师,我用上面的代码,执行下来却是上面图片的效果,请问该如何改进?谢谢蓝老师

--  作者:有点蓝
--  发布时间:2022/5/18 10:20:00
--  
效果有什么问题,改进什么
--  作者:wugang0131
--  发布时间:2022/5/19 8:58:00
--  
蓝老师,表格格式不对,执行下来不是标准的Excel表

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:专家查询表.xls


--  作者:有点蓝
--  发布时间:2022/5/19 9:02:00
--  
模板发上来看看
--  作者:wugang0131
--  发布时间:2022/5/19 9:16:00
--  
谢谢蓝老师,刚才改了一下,又可以了