请教 工作表隐藏打印

zhangv712

设置的按钮在表1  点击打印隐藏状态下的表2  ，恳请老师指教修正{:9_311:}

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets("表2").Visible = True '
    ActiveSheet.PageSetup.PrintArea = "$f$9:$k$17"
        If MsgBox("   〒〒⊙〒〒  确认打印？", vbYesNo) <> vbYes Then Exit Sub
         Me.PrintOut
       Sheets("表2").Visible = False
Application.ScreenUpdating = True

End Sub

爱疯

Private Sub CommandButton1_Click()
    If MsgBox("   〒〒⊙〒〒  确认打印？", vbYesNo) = vbYes Then
        With Sheets("表2")
            .Visible = True    '
            .PageSetup.PrintArea = "$f$9:$k$17"
            .PrintOut
            .Visible = False
        End With
    End If
End Sub

zhangv712

爱疯 发表于 2019-9-17 14:56
Private Sub CommandButton1_Click()
    If MsgBox("   〒〒⊙〒〒  确认打印？", vbYesNo) = vbYes Then ...

感谢版主不吝赐教 ！{:9_303:}