当前代码如下：
 Dim e As RequestEventArgs = rq.e
 Dim cmd As SQL Command = 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("通知书","主数据源","Sel ect * from {通知书} where guid = \'" & e.Values("guid") & "\' ")
 wrt.Build()
 wrt.SaveToPDF(f2) \'保存为PDF文件
 wrt.Quit() \'退出
 
Dim Proc As New Process
Proc.File = f2
Proc.Verb = "Print" \'指定动作
Proc.Start()