参考

http://www.foxtable.com/webhelp/scr/2713.htm

我的代码是这样的If  Tables("销售单").current("单据状态")="已审核"
    Dim Book As New XLS.Book(ProjectPath & "Attachments\\销售单.xls")
    Dim fl As String = ProjectPath & "Reports\\销售单.xls"
    Book.Build()
    Book.Save(fl)
    Dim App As New MSExcel.Application
    App.Visible = False
    App.Caption = "汉思软件"
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
    App.Visible = True
    Ws.PrintPreview
    App.Quit
Else
   
    messagebox.show("已审核的单据才能打印!","信息提示",MessageBoxButtons.ok, MessageBoxIcon.warning)
    Return
End If
ShowAppWindow("销售单.xls",2)

我这样测试没问题

Dim App As New MSExcel.Application
App.Visible = False
App.Caption = "汉思软件"
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("d:\\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Visible = True
ShowAppWindow("汉思软件",2)
Ws.PrintPreview
App.Quit