Foxtable(狐表)用户栏目专家坐堂 → 用代码设置自动双面打印


  共有2074人关注过本帖平板打印复制链接

主题:用代码设置自动双面打印

帅哥哟,离线,有人找我吗?
zyxhx
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:388 积分:3206 威望:0 精华:0 注册:2017/4/2 19:33:00
用代码设置自动双面打印  发帖心情 Post By:2019/9/11 8:35:00 [只看该作者]

老师:如果要设置自动双面打印的话,以下代码应该如何修改?

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        
End Select

 回到顶部