以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于窗口中的打印提示  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=31010)
--  作者：jpguo
--  发布时间：2013/4/8 16:52:00
--  关于窗口中的打印提示

由于打印设计的是直接调用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

[此贴子已经被作者于2013-4-8 16:53:03编辑过]
--  作者：rjh4078
--  发布时间：2013/4/8 17:10:00
--  

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

 

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

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

Else
    Messagebox.Show("未找到打印模板，请联系开发管理员！","提示")

   return
End If
--  作者：jpguo
--  发布时间：2013/4/8 17:15:00
--  
好的，谢谢！