主题：关于窗口中的打印提示

由于打印设计的是直接调用EXCEL模板，如果当点击打印按钮，没有找到对应打印模板时，目前直接提示出错。我是想实现：

1、如果找到有打印模板文件则直接打印。

2、如果没找到模板文件时，加一个提示“打印失败,未找到打印模板,请检查”。应该在下面代码中怎么加啊？

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
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.PrintOut
App.Quit

先用代码判断制定路径的文件是否存在 存在就执行打印 不存在就提示退出

If FileSys.FileExists(ProjectPath & "Attachments\打印_出货单.xls") Then
   

   return
End If