主题：在WebBrower中直接显示Excel文件的设置

如果能连同ACCess一起改就更好了,呵呵

好用,谢谢曹版了!

ACCess按此方法无法设置,因为其在同一窗口打开栏是灰色的

楊姐，可有打印窗口的例子？小弟膜求。。。。


此主题相关图片如下：qq截图未命名.jpg

你是说打印窗口中的EXCEL表？

在窗口显示和打印Excel报表

在介绍Excel报表的时候，我们都是利用Excel来显示和打印Excel报表。
借助WebBrowser控件，你可以在窗口中显示和打印Excel报表。

示例

在窗口中加入一个WebBrowser控件和Button控件，窗口的AfterLoad事件代码设置为：

Dim tmp As String = ProjectPath & "Attachments\资料卡.xls"
Dim rpt As String = ProjectPath & "Reports\资料卡.xls"
Dim Book As New XLS.Book(tmp)
Book.Build()
Book.Save(rpt)
e.Form.Controls("WebBrowser1").AddRess = rpt

按钮的Click事件代码设置为：

e.Form.Controls("WebBrowser1").Print()

这样一打开窗口，就会自动在窗口的WebBrowser控件显示生成的Excel报表，单击按钮则可以打印此报表。

重要提示：

如果执行上面代码的时候，没有在WebBrowser显示Excel报表，而是在一个新的IE窗口显示，那么请双击Foxtable目录下的Office.reg文件，将其添加到注册表中。

哇哈哈。。。
谢谢杨姐。。。

可以直接在窗口中打印， 不需要打开EXCEL表格了，   呆呆的。。。。