主题：[求助]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

谢谢！

 可以这样：

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

怎么提示

从字符串“D:\111\Attachments\发货单.xls”到类型“Integer”的转换无效。

参考下面的修改一下：

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()