- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 生成Word报表出错. (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=47811)
-- 发布时间：2014/3/18 8:57:00
-- 生成Word报表出错.
Dim t As Table = Tables(e.Form.Name & "_Table1")
Dim r As Row = Tables(e.Form.Name & "_Table1").Current
If r IsNot Nothing Then
Dim Result As DialogResult
Result = MessageBox.Show("您确定要为 " & r("姓名") & e.Sender.Text & "吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
\'这里是您的打印代码
Dim frm As WinForm.Form = Forms("报表")
frm.Show()
Dim w As Integer = SysInfo.ScreenWidth
Dim h As Integer = SysInfo.ScreenHeight
frm.BaseForm.SetBounds((w - 820)/2, 0, 820, 700)
Dim wbr As WinForm.WebBrowser = frm.Controls("WebBrowser1")
Dim tm As String = ProjectPath & "Attachments\\佛山转诊单.doc"
Dim fl As String = ProjectPath & "Reports\\佛山转诊单.doc"
Dim wrt As New WordReport(t,tm,fl)
wrt.Build()
wrt.Quit()
wbr.AddRess = fl
End If
Else
MessageBox.Show("当前无记录!")
End If
红色行出错.
此主题相关图片如下：word.jpg
此主题相关图片如下：word.jpg-- 发布时间：2014/3/18 8:58:00
--
开始----运行----粘贴：
winword.exe /regserver
在运行一下：
excel.exe /regserver
试试看.
-- 发布时间：2014/3/18 10:47:00
-- 原来安装的是WPS,删除了,换装2003精简版.
按上面运行,变成了.
此主题相关图片如下：word2.jpg