设置打印区域的宏报错‘下标越界’及选中区域设置需求咨询

咱们一步步来拆解你遇到的两个核心问题：

一、为什么会触发“Subscript out of range”报错？ #

你的代码里有两处关键问题导致了这个错误：

1. 语法错误：ActiveSheet("Arkusz1")是完全错误的写法——ActiveSheet本身就代表当前激活的工作表，不能用它来指定另一个工作表的名称。如果你的目标是操作Arkusz1，应该直接写Worksheets("Arkusz1")；如果是已经激活的Zeszyt11，那直接用ActiveSheet即可。
2. 逻辑冲突：你先激活了Zeszyt11，又试图操作Arkusz1，如果Arkusz1这个工作表不存在，或者名称拼写有误（比如大小写、空格差异），就会触发“下标越界”的错误。

二、修改宏：将选中区域设为打印区域 #

你原来的代码用了ActiveCell.CurrentRegion，这会自动选中当前单元格所在的整个连续数据块，而你需要的是用户手动选中的区域，所以应该改用Selection对象。

修正后的完整代码 #

Sub SetSelectedRangeAsPrintArea()
    ' 先判断用户是否选中了单元格区域
    If TypeName(Selection) <> "Range" Then
        MsgBox "请先选中一个单元格区域！", vbExclamation
        Exit Sub
    End If
    
    ' 将选中区域设置为当前工作表的打印区域
    ActiveSheet.PageSetup.PrintArea = Selection.Address
End Sub

代码细节说明 #

• 增加了前置判断：如果用户选中的不是单元格区域（比如形状、图表），会弹出提示避免后续报错。
• 用Selection.Address直接获取用户选中区域的地址，精准设置打印区域。
• 如果你需要固定操作某张工作表（比如Arkusz1），可以去掉激活操作，直接指定工作表，这样更高效也更稳定：

  Sub SetSelectedRangeAsPrintArea()
      If TypeName(Selection) <> "Range" Then
          MsgBox "请先选中一个单元格区域！", vbExclamation
          Exit Sub
      End If
      
      ' 直接指定工作表设置打印区域，无需激活
      Worksheets("Arkusz1").PageSetup.PrintArea = Selection.Address
  End Sub
  

额外提醒 #

• 工作表名称必须完全匹配：如果你的工作表名称带空格、特殊字符，一定要确保代码里的名称和实际工作表名称完全一致（比如"Zeszyt 11"和"Zeszyt11"是两个不同的名称）。
• 尽量少用Activate/Select：VBA里直接操作工作表对象比激活工作表更高效，也不容易因为工作表切换出现意外错误。

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