如何通过VBA按员工姓名（工作表名）选择并批量打印报表？

完全可以通过VBA实现这个需求，下面是一套完整的解决方案，包含用户选择界面和批量打印逻辑：

Sub BatchPrintEmployeeReports()
    Dim ws As Worksheet
    Dim selectedSheets As New Collection
    Dim listBox As Object
    Dim i As Integer
    Dim sheetName As String
    
    ' 创建临时多选列表框
    Set listBox = CreateObject("Forms.ListBox.1")
    With listBox
        .Top = 100
        .Left = 100
        .Width = 250
        .Height = 300
        .MultiSelect = 1 ' 开启多选模式
        ' 加载所有工作表名称到列表
        For Each ws In ThisWorkbook.Worksheets
            .AddItem ws.Name
        Next ws
        .Visible = True
    End With
    
    ' 等待用户完成选择并关闭列表框
    Do While listBox.Visible
        DoEvents
    Loop
    
    ' 收集选中的有效工作表
    For i = 0 To listBox.ListCount - 1
        If listBox.Selected(i) Then
            sheetName = listBox.List(i)
            ' 验证工作表是否存在，避免错误
            On Error Resume Next
            Set ws = ThisWorkbook.Worksheets(sheetName)
            On Error GoTo 0
            If Not ws Is Nothing Then
                selectedSheets.Add ws
                Set ws = Nothing
            End If
        End If
    Next i
    
    ' 执行批量打印
    If selectedSheets.Count > 0 Then
        Dim printSheets() As Worksheet
        ReDim printSheets(1 To selectedSheets.Count)
        For i = 1 To selectedSheets.Count
            Set printSheets(i) = selectedSheets(i)
        Next i
        ThisWorkbook.Worksheets(printSheets).PrintOut
        MsgBox "已完成 " & selectedSheets.Count & " 份报表打印", vbInformation
    Else
        MsgBox "未选择任何报表", vbExclamation
    End If
    
    ' 清理对象
    Set listBox = Nothing
    Set selectedSheets = Nothing
End Sub

关键功能说明 #

• 多选交互：通过临时列表框提供直观的勾选界面，支持同时选择多个员工报表
• 错误防护：自动校验选中的工作表是否存在，避免因工作表删除、重名导致的运行错误
• 批量执行：一次性提交所有选中工作表的打印任务，无需逐个操作
• 状态反馈：打印完成后显示打印数量，未选择时给出明确提示

使用步骤 #

1. 按下Alt + F11打开VBA编辑器
2. 右键点击当前工作簿，选择「插入」→「模块」
3. 将上述代码粘贴到模块中
4. 返回Excel，通过「开发工具」选项卡插入按钮，关联该宏即可使用

内容的提问来源于stack exchange，提问作者DaveASU