以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]WebBrowser 显示Word  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=47862)

--  作者:Phoebe_fdk
--  发布时间:2014/3/18 19:41:00
--  [求助]WebBrowser 显示Word
WebBrowser 显示Word 时,如何屏蔽Word菜单部分功能选项
--  作者:有点酸
--  发布时间:2014/3/18 22:01:00
--  
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.OfficeToolBar = True
wbr.AddRess = fl