当前窗体有两个web浏览器组件 点查看模板的时候 左边显示模板 点生成word的时候 右边显示生成的数据word文件
此主题相关图片如下:1.png
想实现点击电子印章的时候 加盖了电子印章的Word显示在右边【当前怎么操作都是另外弹出窗体显示出文件?麻烦老师们帮忙修正 不新建word窗体打开文件 直接显示在右边的web浏览器组件中】
此主题相关图片如下:2.png
生成word代码:
Dim tm As String = ProjectPath & "Attachments\入党申请谈话通知书.doc"
Dim f1 As String = ProjectPath & "Reports\ " & Vars("姓名") & "入党申请谈话通知书.doc"
Dim wrt As New WordReport(tm,f1) '注意这里无需指定表名
wrt.AddDataTable("党员信息","智慧党建","Se lect * from {党员信息} where 姓名 = '" & Vars("姓名") & "'")
wrt.Build()
wrt.Quit() '退出
Dim tb2 As WinForm.TabControl = e.Form.Controls("TabControl2")
tb2.SelectedIndex=0
Dim wb2 As WinForm.WebBrowser = e.Form.Controls("WebBrowser2")
wb2.OfficeToolBar = False
wb2.Address=f1
电子印章代码:
Dim ps As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("WinWord")
For Each p As System.Diagnostics.Process In ps
p.kill
Next
Dim tb2 As WinForm.TabControl = e.Form.Controls("TabControl2")
Dim wb2 As WinForm.WebBrowser = e.Form.Controls("WebBrowser2")
Dim f1 As String = ProjectPath & "Reports\ " & Vars("姓名") & "入党申请谈话通知书.doc"
Dim App As New MSWord.Application
Dim doc As object = app.Documents.Open(f1)
Dim s = doc.Shapes.AddPicture("C:\Users\Administrator\Desktop\dzyz\电子印章\Attachments\电子印章.png", False, True,300, 500, 100, 100)
s.WrapFormat.Type = MSWord.WdWrapType.wdWrapFront
app.visible = True
app.quit
tb2.SelectedIndex=0
wb2.Address=f1
[此贴子已经被作者于2020/12/31 17:36:07编辑过]