以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]excel报表可以直接打印而不需要预览吗  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=72486)
--  作者：nuhou
--  发布时间：2015/7/30 17:56:00
--  [求助]excel报表可以直接打印而不需要预览吗

我现在是窗口输入信息，然后通过按键出来的窗口上面的webbrowser控件预览，之后再按打印键才打印，能不能省掉预览的过称，直接就按键打印

 

预览的那个窗口的afterload的代码是

 

Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
wbr.AddRess = Nothing

Dim tmp As String = ProjectPath & "Attachments\\发货单.xls"
Dim rpt As String = ProjectPath & "Reports\\发货单.pdf"
Dim Book As New XLS.Book(tmp)
Book.Build()
Book.SaveToPDF(rpt)
wbr.OfficeToolBar = True \'如果不需要显示工具栏,可删除此行代码
wbr.AddRess = rpt

 

 

谢谢！
--  作者：狐狸爸爸
--  发布时间：2015/7/30 17:58:00
--  

 可以这样：

 

Dim tmp As String = ProjectPath & "Attachments\\发货单.xls"
Dim rpt As String = ProjectPath & "Reports\\发货单.pdf"
Dim Book As New XLS.Book(tmp)

Book.Build(tmp)

 

Dim Proc As New Process
Proc.File = tmp
Proc.Verb = "Print" \'指定动作
Proc.Start()

 

参考：

http://www.foxtable.com/help/topics/0353.htm
--  作者：nuhou
--  发布时间：2015/7/30 18:20:00
--  

怎么提示

 

从字符串“D:\\111\\Attachments\\发货单.xls”到类型“Integer”的转换无效。
--  作者：狐狸爸爸
--  发布时间：2015/7/30 20:41:00
--  

参考下面的修改一下：

 

Dim Book AsNew 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.Verb = "Print" \'指定动作
Proc.Start()