主题：bs页面在使用word模板进行套打时，如何将套打后的文件直接在客户端进行生成与保存呢？

bs页面在使用word模板进行套打时，如何将套打后的文件直接在客户端进行生成与保存呢？

红色部分代码有没有办法直接操作保存在bs页面打开的客户端中的指定目录下呢？

当前代码如下：

Dim tm As String = ProjectPath & "Attachments\" & e.Values("文书名") & ".doc" '指定模板文件
If FileSys.FileExists(tm) Then
        Dim time As String = Format(Date.now, "yyyyMMddHHmmssfffff")
        Dim f1 As String = ProjectPath & "mybaobiao\" & e.Values("文书名") & e.Values("创建人") & e.Values("guid") & time & "存根联.doc" '指定目标文件
        Dim f2 As String = ProjectPath & "mybaobiao\" & e.Values("文书名") & e.Values("创建人") & e.Values("guid") & time & "存根联.pdf" '指定目标PDF文件
        Dim wrt As New WordReport(tm, f1)
        wrt.AddDataTable(e.Values("文书名"), "主数据源", "Sel ect * from {" & e.Values("文书名") & "} where guid = '" & e.Values("guid") & "' ")
        cmd.CommandText = "sel ect * from SYS_Dictionary where 字典值='是' and 分类='PDF预览'"
        Dim dt As DataTable = cmd.ExecuteReader()
        If dt.DataRows.Count > 0 Then
            wrt.Build()
            wrt.SaveToPDF(f2) '保存为PDF文件
            wrt.Quit() '退出
            e.WriteString("\mybaobiao\" & e.Values("文书名") & e.Values("创建人") & e.Values("guid") & time & "存根联.pdf")
        Else
            wrt.Build()
            'wrt.Show()
            wrt.Quit() '退出
            e.WriteString("\mybaobiao\" & e.Values("文书名") & e.Values("创建人") & e.Values("guid") & time & "存根联.doc")
        End If
    Else
    e.WriteString(e.Values("文书名") & "存根联[文件不存在或已经被删除!]")
End If