用于设置打印区域不起作用的宏

Question

我想创建一个简单的宏，它将从所选区域设置打印区域，但我仍然会收到错误＆＃34;下标超出范围＆＃34;

这是代码

Worksheets("Zeszyt11").Activate ActiveSheet("Arkusz1").PageSetup.PrintArea = _ActiveCell.CurrentRegion.Address

修改

好的，我还有一个问题：我想在我选择的单元格中创建一个打印区域，现在它需要每个文本。如何修复它？

Answer 1

你不能说ActiveSheet（“SheetName”）试试

Worksheets("Arkusz1").PageSetup.PrintArea = ActiveCell.CurrentRegion.Address