老师:如果要设置自动双面打印的话,以下代码应该如何修改?
Select Case e.StripItem.Name
'打印参合证明
Case "print1"
e.Form.Strips("主菜单").Items("Printchzm").BaseControl.HideDropDown '退出主菜单下的项目菜单"Printchzm"
Dim tm As String = ProjectPath & "Attachments\参合证明.docx" '指定模板文件
Dim fl As String = ProjectPath & "Reports\参合证明.docx" '指定目标文件
Dim wrt As New WordReport(Tables("参合成员信息"),tm,fl) '定义一个WordReport
wrt.Build() '逐行生成报表
wrt.print
wrt.quit