如何为工作表数组设置打印区域？遇Runtime Error '438'报错求助

报错原因 #

• Runtime Error '438' 触发的核心原因：Sheets集合（无论是否通过数组选中多个工作表）不具备PageSetup.PrintArea属性，这个属性仅属于单个Worksheet对象。你试图一次性给多个工作表批量设置打印区域，违背了VBA对象模型的规则。
• 额外问题：MyArray已经是通过Application.Transpose生成的一维工作表名称数组，无需再用Array(MyArray)包裹，这会造成数组嵌套，导致Sheets无法正确识别目标工作表。

修正后的代码 #

Option Explicit
Dim NumberRow As Long ' 改为Long类型，行号是数值，不是字符串
  
Sub PrintFront()
'
' PrintFront Macro
'
' Keyboard Shortcut: Ctrl+Shift+L

' 修正行号变量类型，End(xlDown).Row返回数值，用Long更合适
NumberRow = ThisWorkbook.Sheets("Admin Panel").Range("N21").End(xlDown).Row

Dim wb As Workbook: Set wb = ThisWorkbook
Dim MyArray As Variant: MyArray = Application _
.Transpose(wb.Sheets("Admin Panel").Range("N21:N" & NumberRow).Value)

Dim wsName As Variant
' 遍历数组中的每个工作表名称，逐个设置打印区域
For Each wsName In MyArray
    wb.Sheets(wsName).PageSetup.PrintArea = "C4:AF45"
Next wsName

' 批量预览多工作表，这一步是支持的
wb.Sheets(MyArray).PrintPreview
End Sub

关键改动说明 #

• 将NumberRow的类型从String改为Long：行号是整数类型，使用字符串存储可能引发隐性错误，符合VBA变量类型规范。
• 新增循环遍历逻辑：通过For Each逐个访问数组中的工作表，单独设置每个工作表的PrintArea，这是符合VBA对象模型的正确做法。
• 保留批量预览：Sheets(MyArray).PrintPreview是合法操作，因为PrintPreview支持对选中的多个工作表执行预览。

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