如何使用 vba 设置打印区域（附示例）

您可以在 VBA 中使用以下语法来设置打印区域并在实际打印工作表之前显示打印预览：

 Sub SetPrintArea()

    With Sheets("Sheet1")
     .PageSetup.PrintArea = Selection.Address
     .PrintPreview
    End With
    
End Sub

这个特定的宏将打印区域设置为工作表中当前选定的单元格范围（称为Sheet1） ，然后提供打印预览。

注意：如果您想打印选定的范围而不预览它，请在宏中将.PrintPreview替换为.PrintOut 。

以下示例展示了如何在实践中使用此语法。

示例：如何使用VBA设置打印区域

假设我们有以下 Excel 工作表，其中包含各种篮球运动员的数据：

我们可以创建以下宏来指定打印区域并在实际打印纸张之前显示打印预览：

 Sub SetPrintArea()

    With Sheets("Sheet1")
     .PageSetup.PrintArea = Selection.Address
     .PrintPreview
    End With
    
End Sub

假设我们接下来选择单元格区域A2:B7 ：

当我们运行这个宏时，打印区域会自动设置为所选的单元格范围，并出现以下打印预览窗口：

这准确地向我们展示了如果我们打印当前选定的单元格范围，页面将会是什么样子。

如果我们更改选定的单元格范围，打印区域将自动更改。

例如，假设我们选择范围A1:B11 ：

如果我们再次运行该宏，打印区域将自动设置为所选单元格范围，并出现以下打印预览窗口：

打印预览现在显示，如果继续打印，我们将打印A1:B11范围。

注意：您可以在此处找到 VBA 中PrintArea属性的完整文档。

其他资源

以下教程说明如何在 VBA 中执行其他常见任务：

VBA：如何打印为 PDF
VBA：如何使用打印预览
VBA：如何创建文件夹