Excel VBA中，如果单元格包含Excel电子表格中的值打印区域？

Question

我正在尝试使用vba代码在单元格值包含“ X”时打印excel区域（AC120：AT128）。此刻，我的代码打印出了整个电子表格，但我只希望它打印出所选单元格区域。

有人可以告诉我如何实现吗？ 提前致谢。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim celltxt As String
celltxt = ActiveSheet.Range("AQ98").Text
If InStr(1, celltxt, "X") Then

 Dim ws As Worksheet
 For Each ws In Worksheets
 If ws.Range("AQ98") = "X" Then
 ws.PrintOut
 End If
 Next ws

Else

End If

End Sub

Answer 1

我不确定您使用的是哪个版本的Excel，但是在Office 2010中，您可以轻松使用。

Range("AC120:AT128").PrintOut()

要么

Selection.PrintOut()

您还可以使用设置打印区域功能，例如

ws.PageSetup.PrintArea = "AC120:AT128"