关于事件跨工作表打印（默认隐藏的情况）

zhangv712

劳烦老师帮我指点指点  ，我在录入工作表点击序列，触发事件跨工作表打印（默认隐藏的情况）  

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Target.Column = 8 Then
    Application.ScreenUpdating = False
Sheets("凭证模块").Visible = True '
    ActiveSheet.PageSetup.PrintArea = "$A$1:$N$10"
        If MsgBox("   〒〒⊙〒〒  确认打印？", vbYesNo) <> vbYes Then Exit Sub
       Sheets("凭证模块").Visible = False
Application.ScreenUpdating = True
        End If

ligh1298

中间总分代码，供参考


Dim m%
        Application.ScreenUpdating = False '禁止刷新
        Sheets("凭证模块").Visible = True '取消隐藏
        m = MsgBox("   〒〒⊙〒〒  确认打印？", vbYesNo, "提示：") '弹出对话框
        If m = 6 Then '点击确认后，就开始打印
          With Sheets("凭证模块")
                .PageSetup.PrintTitleRows = "$1:$1" '打印顶端标题（可更改）
                .Range("$A$1:$N$10").PrintOut Copies:=1, From:=2, To:=3 'Copies:=1表示份数；From:=X起始页； To:=Y结束页
        End With
        End If
        If m = 7 Then Exit Sub '点击“否”，就退出
         Sheets("凭证模块").Visible = False '隐藏工作表

zhangv712

ligh1298 发表于 2019-9-9 15:35
中间总分代码，供参考

{:9_305:}