Question

我对VBA和Excel都很陌生。我有一个代码，用于设置文档的打印区域

Dim count As Integer
count = ThisWorkbook.Worksheets("sheet2").Range("E106").Value

    Dim i As Integer
    i = count + 4


    Sheets("sheet1").PageSetup.PrintArea = Range(Cells(3, 2), Cells(35, i))
    End Sub

但是当我进入“打印预览”时，会显示整张表格。 Sheet1和sheet2是工作表名称的别名，但我有其他引用它们的代码，它可以正常工作。我已经尝试录制宏以首先设置打印区域，然后插入我的自定义范围。我非常感谢任何有关我所做错事的帮助：）

Answer 1

LIKE '%something%'的{{1}}属性不是对象（PrintArea），而是PageSetup持有所需范围的地址。试试这个：

range

Answer 2

更高级版本（已测试）：

With ThisWorkbook.Worksheets("Sheet1")
    .PageSetup.PrintArea = .Range("offset(B3,0,0,32,Sheet2!E106+2)").Address
    .DisplayPageBreaks = False   ' optional to hide the print area rectangle
End With

设置打印区域的代码不起作用

2 个答案: