VBA打印隐藏的工作表

yjwdjfqb

VBA打印隐藏的工作表


各位老师好

如我隐藏的工作的表为　“报表”
怎么在，不取消隐藏的情况下
直接用代码命令，打印这个工作表，谢谢老师们了！！！

shiruiqiang

https://club.excelhome.net/forum ... 4%B9%A4%D7%F7%B1%ED

6楼老师

qline302

Sub PrintX()

Application.ScreenUpdating = False  '关键看不见
With Worksheets("隐藏的表名")
    .Visible = True
    .PrintOut
    .Visible = xlSheetVeryHidden
End With
Application.ScreenUpdating = True

End Sub

gwjkkkkk

遍历工作表，判断是否隐藏，如果是则显示，再打印，再进行隐藏。。。

yjwdjfqb

gwjkkkkk 发表于 2024-2-25 11:49
遍历工作表，判断是否隐藏，如果是则显示，再打印，再进行隐藏。。。

老师你好
我有几个隐藏的工作表

我只想打印　“报表”，这个工作表，怎么做，谢谢你了老师！

gwjkkkkk

yjwdjfqb 发表于 2024-2-25 12:24
老师你好
我有几个隐藏的工作表

请参考图片。。。

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim wks As Worksheet
   
    For Each wks In Worksheets
        With wks
            If .Name = "报表" Then
                If .Visible = False Then
                    .Visible = True
                    .PrintOut
                    .Visible = False
                Else
                    .PrintOut
                End If
                Exit For
            End If
        End With
    Next

    Beep
End Sub