word文件套打 怎么实现代码控制双面打印呢?
部分页面 如123页需要单面打印 45页 需要双面打印
当前代码如下:
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()
[此贴子已经被作者于2022/11/3 18:27:37编辑过]