打印隐藏的工作表

郭梦

各位大神帮忙解决一下这个问题：
文件中有若干工作表，只有一个工作表（名为“文件打印”）处于可视状态，其他都处于隐藏状态。处于隐藏状态的工作表包括初一1班、初一2班、初一3班……初一10班，初二1班、初二2班……
期望在“文件打印”工作表内创建“初一打印”按钮，点击该按钮，在各隐藏工作表仍处于隐藏状态下，对初一1班至初一10班的各工作表进行打印。打印机选默认打印机，各隐藏工作表的打印格式已经设定好。
拜求代码，非常感谢！

郭梦

各位大神，不好意思，刚才的需求有误，请根据这个来。 文件中有若干工作表，只有一个工作表（名为“打印”）处于可视状态，其他都处于隐藏状态。处于隐藏状态的工作表包括初一1班、初一2班、初一3班……初一10班，初二1班、初二2班…… 在“打印”工作表中有表格如下： 期望在“打印”工作表内创建“文件打印”按钮，点击该按钮，在各隐藏工作表仍处于隐藏状态下，对上述截图中是否打印栏为“是”的表格进行打印。打印机选默认打印机，各隐藏工作表的打印格式已经设定好。 拜求代码，非常感谢！ 物理成绩.zip (45.6 KB, 下载次数: 12) 2020-10-10 13:11 上传 点击文件名下载附件

liuxi001

很基础的需要，自己查阅资料写也要不了多少时间，这么好的学习机会不要浪费了。
最基础的循环判断就可以了。

郭梦

小白一枚，平时也不太用得到VB，所以完全不懂

chis3

Sub test()

    Dim sh As Worksheet
   
    For Each sh In Worksheets
   
        If sh.Visible = xlSheetHidden Then
            
            sh.PrintOut
            
        End If
        
    Next

End Sub

3190496160

Sub dayin()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
For Each sh In Sheets
    If sh.Name <> "打印" Then
        d(sh.Name) = ""
    End If
Next sh
With Sheets("打印")
    r = .Cells(Rows.Count, 6).End(xlUp).Row
    ar = .Range("f6:g" & r)
End With
For i = 2 To uboudn(ar)
    If Trim(ar(i, 1)) <> "" And Trim(ar(i, 2)) <> "" Then
        If Trim(ar(i, 2)) = "是" Then
            If d.exists(Trim(ar(i, 1))) Then
                sh.Visible = -1
                sh.PrintOut
                sh.Visible = 0
            End If
        End If
    End If
Next i
MsgBox "ok!"
End Sub

3190496160

3190496160

代码未经测试，自己测试看看吧

iu950

iu950

或者