如何在Excel VBA循环中交替打印标签页与封面页？

我长期使用Excel，第一次发帖求助。工作中用Excel打印标签，现在需要在每个标签之间打印封面页。我写了PrintLabelsROI主打印子程序和VB_PRINTSHEET封面打印子程序，但调用封面打印时要么循环中断，要么重复打印封面。附上相关代码，可提供Excel.xlsm文件，求解决。

原代码 #

PrintLabelsROI 主程序 #

Sub PrintLabelsROI()

 Dim x As Integer
 Dim index As Integer
 Dim sheet As String
 Dim pages As Integer

 NumRows = Range("E5", Range("E5").End(xlDown)).Rows.Count
 Range("E5").Select
 For x = 1 To NumRows
     index = ActiveCell.Row
         If ActiveCell.EntireRow.Hidden = False Then
             If (Cells(index, 5).Value = "I088") Then
                 sheet = "ROI PRINT"
                 pages = Cells(index, 9).Value
             ElseIf (Left(Cells(index, 9).Value, 1) = "?") Then
                 sheet = "DF"
                 pages = Mid(Cells(index, 9).Value, 2)
             Else
                 sheet = "norm"
                 pages = Cells(index, 9).Value
             End If
        If (pages > 0) Then
            ' VB_PRINTSHEET
            Sheets(sheet).Cells(15, 6).Value = Cells(index, 6).Value
            Sheets(sheet).PrintOut Copies:=pages
        End If
    End If
    ActiveCell.Offset(1, 0).Select
Next
End Sub

VB_PRINTSHEET 封面打印程序 #

Sub VB_PRINTSHEET()
    Worksheets("PICKSHEET").PrintOut , Copies:=1
End Sub

问题修复与优化 #

核心问题点 #

• 原主程序仅注释了VB_PRINTSHEET，未实际调用子程序，导致封面根本没打印
• 使用Select/ActiveCell操作会因打印时的窗口焦点变化触发循环中断，这是VBA常见的不稳定因素
• Mid提取的页码是字符串类型，直接赋值给整数变量pages可能引发类型错误

修改后的代码 #

Sub PrintLabelsROI()
    Dim x As Integer
    Dim ws As Worksheet
    Dim numRows As Integer
    Dim targetRow As Range
    Dim sheetName As String
    Dim printPages As Integer
    Dim cellValue As String
    
    ' 绑定当前工作表，避免依赖ActiveSheet的不确定性
    Set ws = ActiveSheet
    numRows = ws.Range("E5", ws.Range("E5").End(xlDown)).Rows.Count
    
    ' 遍历目标行，无需Select操作
    For x = 0 To numRows - 1
        Set targetRow = ws.Range("E5").Offset(x, 0).EntireRow
        ' 跳过隐藏行
        If Not targetRow.Hidden Then
            ' 确定打印工作表和页码
            If targetRow.Cells(1, 5).Value = "I088" Then
                sheetName = "ROI PRINT"
                printPages = targetRow.Cells(1, 9).Value
            Else
                cellValue = targetRow.Cells(1, 9).Value
                If Left(cellValue, 1) = "?" Then
                    sheetName = "DF"
                    ' 转换为整数，避免字符串类型错误
                    printPages = CInt(Mid(cellValue, 2))
                Else
                    sheetName = "norm"
                    printPages = CInt(cellValue)
                End If
            End If
            
            ' 页码大于0时执行打印
            If printPages > 0 Then
                ' 先打印封面（如需在标签后打印，将此行移到PrintOut之后）
                VB_PRINTSHEET
                ' 设置标签页内容并打印
                Sheets(sheetName).Cells(15, 6).Value = targetRow.Cells(1, 6).Value
                Sheets(sheetName).PrintOut Copies:=printPages
            End If
        End If
    Next x
End Sub

' 封面打印子程序优化参数写法
Sub VB_PRINTSHEET()
    Worksheets("PICKSHEET").PrintOut Copies:=1
End Sub

说明 #

1. 彻底移除Select/ActiveCell操作，改用工作表和单元格对象直接引用，避免打印时焦点变化导致的循环中断
2. 实际调用VB_PRINTSHEET子程序，实现每个标签页前后插入封面的需求（调整调用位置即可切换打印顺序）
3. 添加CInt转换页码为整数，解决字符串类型赋值的潜在错误
4. 优化变量命名，提升代码可读性与维护性

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