使用VBA自动更改Excel打印区域

Sub PrintArea()
    Dim sh As Worksheet
    Set sh = Sheet1
    With sh
        .PageSetup.PrintArea = _
        .Range("A1", .Range("D" & Rows.Count).End(xlUp)).Address
    End With
End Sub
上述代码将捕获列D中最后使用的单元格。代码中的Sheet1是工作表代码名称，如果你使用的工作表不是Sheet1，则需要对此进行修改。
如果想打印单元格A1所处的当前区域，则可以使用下面的代码：
Sub PrintCurrentArea()
    Sheet1.PageSetup.PrintArea = [A1].CurrentRegion.Address
End Sub