主题：[求助]excel报表可以直接打印而不需要预览吗

 可以这样：

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

参考下面的修改一下：

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