以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=85764)
--  作者：jqg2016
--  发布时间：2016/6/2 7:45:00
--  [求助]

示例一

新建一个窗口（建议使用模式窗口或独立窗口），在窗口中加入一个WebBrowser控件，窗口的AfterLoad事件代码设置为：

Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim tm As String  = ProjectPath & "Attachments\\出库单.doc"
Dim fl As String = ProjectPath & "Reports\\出库单.doc"
Dim wrt As New WordReport(Tables("出库"),tm,fl)
wrt.Build()
wrt.Quit()
wbr.AddRess = fl

这样一打开窗口，就会自动在窗口的WebBrowser控件显示生成的Word报表。

重要提示：

1、如果执行上面代码的时候，没有在WebBrowser显示Word报表，而是在一个新的IE窗口显示，那么请双击Foxtable目录下的Office.reg文件，将其添加到注册表中。
2、在WebBrowser显示的Word菜单缺少包括打印命令的程序菜单，你可以按快捷键“Ctrl+P”打印，或者自定义word的快速访问栏，把打印命令加上去。



 求助帮助中的自定义word的快速访问栏，把打印命令加上去。不知如何制作。
--  作者：Hyphen
--  发布时间：2016/6/2 9:00:00
--  
https://www.baidu.com/baidu?word=%E8%87%AA%E5%AE%9A%E4%B9%89word%E7%9A%84%E5%BF%AB%E9%80%9F%E8%AE%BF%E9%97%AE%E6%A0%8F&ie=utf-8&tn=myie2dg&ch=6