本地电脑没有安装iis类似程序，net4.7 win7操作系统
项目运行时提示如图：
前端代码：
$.post("form385_word.Ajax", {
guid: e.form.guid,
创建人: e.form.user.name
},
function(res) {
var a = document.createElement("a");
a.setAttribute("href", myurl + res);
a.setAttribute("target", "打印文书");
document.body.appendChild(a);
a.click();
a.remove();
e.form.closeloading();
})
后端代码：
Public Sub form385_word_Ajax(rq as Request)
Dim e As RequestEventArgs = rq.e
Dim cmd As SQLCommand = rq.cmd
Dim time As String =Format(Date.now,"yyyyMMddHHmmss")
Dim tm As String = ProjectPath & "Attachments\谈话通知书.doc" '指定模板文件
Dim f1 As String = ProjectPath & "Reports\谈话通知书"& e.Values("创建人") & e.Values("guid") & time &".doc" '指定目标文件
Dim f2 As String = ProjectPath & "Reports\谈话通知书"& e.Values("创建人") & e.Values("guid") & time &".pdf" '指定目标PDF文件
Dim wrt As New WordReport(tm,f1)
wrt.AddDataTable("谈话通知书","主数据源","Sele ct * from {谈话通知书} where guid = '" & e.Values("guid") & "' ")
wrt.Build()
wrt.SaveToPDF(f2) '保存为PDF文件
wrt.Quit() '退出
'返回生产的报表路径
e.WriteString("\Reports\谈话通知书"& e.Values("创建人") & e.Values("guid") & time &".pdf")
End Sub
[此贴子已经被作者于2022/8/3 8:59:10编辑过]
加好友 
发短信
Post By：2022/8/3 8:58:00 [只看该作者]
