求助大神，搞了一早上，还是没有成功

dnvjfdeuff

通过工作表中的内容指定信息，打印所有工作表

quqiyuan

供参考，会先弹出选择打印机对话框
一开始老是错误，原来数据表有隐藏工作表

quqiyuan

Sub test()      'by quqiyuan    2024-5-18
Dim sh As Worksheet, sht As Worksheet
Set sht = ThisWorkbook.Sheets("文件清单")
arr = sht.[a1].CurrentRegion
Application.Dialogs(9).Show
For i = 2 To UBound(arr)
    If arr(i, 2) = 1 Then
        f = arr(i, 1)
        Set wb = Workbooks.Open(f, 0)
            For Each sh In wb.Worksheets
                If sh.Visible = -1 Then sh.PrintOut
            Next
        wb.Close 0
    End If
Next
End Sub

剑指E

Qs18

Sub PrintAllSheets()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim wb As Workbook, wb2 As Workbook, ws As Worksheet
Set wb = ThisWorkbook
arr = wb.Sheets(1).Range("a1").CurrentRegion
For i = 2 To UBound(arr)
    If arr(i, 2) = 1 Then
        Set wb2 = Workbooks.Open(arr(i, 1))
        With wb2
                For Each ws In wb2.Sheets
                    If ws.Visible = xlSheetVisible Then
                        ws.PrintOut
                    End If
                Next ws
        End With
    wb2.Close (False)
    End If
Next
Set wb2 = Nothing
Set wb = Nothing
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "打印完成！"
End Sub

dnvjfdeuff

quqiyuan 发表于 2024-5-18 12:36
供参考，会先弹出选择打印机对话框
一开始老是错误，原来数据表有隐藏工作表

好像不行，不知道那里不对

quqiyuan

dnvjfdeuff 发表于 2024-5-18 13:52
好像不行，不知道那里不对

你说一下哪里不行，我这边测试过是可以的，你把问题发图片看看吧

dnvjfdeuff

Qs18 发表于 2024-5-18 12:42
Sub PrintAllSheets()
Application.DisplayAlerts = False
Application.ScreenUpdating = False

好像不行哦，大神

Qs18

dnvjfdeuff 发表于 2024-5-18 16:36
好像不行哦，大神

我这边都可以正常打印，不知道您那边提示的什么，您可以截图上传！另外您有很多隐藏的工作表，一直报错。