打印预览方式打开Excel（修改） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 打印预览方式打开Excel（修改）

共有32170人关注过本帖树形打印复制链接主题：打印预览方式打开Excel（修改）

lxl

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：858 积分：6071 威望：0 精华：19 注册：2008/9/1 9:13:00

打印预览方式打开Excel（修改） 发帖心情

Post By：2009/11/26 19:22:00 [显示全部帖子]

只显示打印预览窗口，不显示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

[此贴子已经被作者于2009-11-27 19:55:37编辑过]

[本帖被加为精华]

lxl

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：858 积分：6071 威望：0 精华：19 注册：2008/9/1 9:13:00

Post By：2009/11/27 19:38:00 [显示全部帖子]

1楼更新了一下，这下应该没问题了

lxl

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：858 积分：6071 威望：0 精华：19 注册：2008/9/1 9:13:00

Post By：2009/11/27 19:50:00 [显示全部帖子]

以下是引用舜风在2009-11-27 19:44:00的发言：

图片点击可在新窗口打开查看你把调用方式也给删除了

我补充上。。

lxl

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：858 积分：6071 威望：0 精华：19 注册：2008/9/1 9:13:00

Post By：2009/11/27 21:08:00 [显示全部帖子]

以下是引用程兴刚在2009-11-27 20:01:00的发言：
lxl老兄，word能这样实现吗？谢谢，我更图片点击可在新窗口打开查看

需要这个！

试了半天，这个和Excel有点区别，实现起来有点难
你按以下步骤试试：（没想到解决方法，所以没写成dll形式）
1.下载微软的word组件至狐表根目录

下载信息 [文件大小：下载次数： ]
点击浏览该文件:microsoft.office.interop.word.rar

2.命令窗口执行：
Dim app As New Microsoft.Office.Interop.Word.Application
Dim doc As Microsoft.Office.Interop.Word.Document = app.Documents.Open("D:/aa.doc")
doc.PrintPreview()
app.Visible = True
'这里不知道怎么暂停（Excel自动暂停，所以能实现）
app.Quit

[此贴子已经被作者于2009-11-27 21:08:59编辑过]