下面的示例将打印区域设置为 Sheet1 上的单元格 A1:C5。

Worksheets("Sheet1").PageSetup.PrintArea = "$A$1:$C$5"
本示例将 sheet1 的打印区域设置为当前区。 注意使用 Address 属性返回 A1-样式的地址。
Worksheets("Sheet1").Activate 
ActiveSheet.PageSetup.PrintArea = _ 
 ActiveCell.CurrentRegion.Address
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。