主题：打印预览方式打开Excel（修改）

只显示打印预览窗口，不显示EXCEL
调用方式：
foxls.mExcel.openxls("D:/abc.xls")
源代码
Imports Microsoft.Office.Interop
Public Module mExcel
    Sub openxls(ByVal FilePath As String)
        If IO.File.Exists(FilePath) Then
            Dim app As New Excel.Application
            Dim book As Excel.Workbook = app.Workbooks.Open(FilePath)
            Dim sheet As Excel.Worksheet = book.Sheets.Item(1)
            app.Visible = True
            sheet.PrintPreview()
            book.Close()
            app.Quit()
        Else
            MsgBox("文件不存在！", MsgBoxStyle.OkOnly)
        End If
    End Sub
End Module

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:dlls.rar

先收藏学习～ 

多谢

收藏

         呵呵，收藏备用，学习估计我就不行了，对设计.dll文件没有一点了解，谢谢lxl版主分享！

呵呵，太好了。

 建议老六集成到狐表中，不错

Execl报表本来就是以打印预览的方式打开，不知道还有什么用处？

现在的Excel报表看似更专业了，谢谢

收藏学习了!