vba 如何不打印批注

在VBA（Visual Basic for Applications）中，如果您想要在Excel中不打印包含批注的单元格，您可以通过以下步骤实现：

1. 删除批注：直接删除单元格中的批注。

2. 隐藏批注：隐藏所有批注，然后在打印设置中排除隐藏的批注。

以下是VBA代码示例，实现了上述两种方法：

方法1：删除所有批注

```vba

Sub DeleteAllComments()

Dim ws As Worksheet

Dim sh As Worksheet

' 遍历所有工作表

For Each sh In ThisWorkbook.Worksheets

' 遍历所有单元格

For Each ws In sh.UsedRange

' 如果单元格有批注，则删除

If Not IsEmpty(ws.Comment) Then

ws.Delete

End If

Next ws

Next sh

End Sub

```

方法2：隐藏所有批注并在打印时排除它们

```vba

Sub HideAllComments()

Dim ws As Worksheet

Dim sh As Worksheet

' 遍历所有工作表

For Each sh In ThisWorkbook.Worksheets

' 遍历所有单元格

For Each ws In sh.UsedRange

' 如果单元格有批注，则隐藏

If Not IsEmpty(ws.Comment) Then

ws.Comment.Visible = False

End If

Next ws

Next sh

' 设置打印选项，排除隐藏的批注

With ActiveSheet.PageSetup

.PrintComments = xlPrintNoComments

End With

End Sub

```

使用方法

将上述代码复制到Excel的VBA编辑器中。

调用`DeleteAllComments`子程序将删除所有批注。

调用`HideAllComments`子程序将隐藏所有批注，并在打印时排除它们。

请根据您的需求选择合适的方法。如果只是临时不打印批注，隐藏批注可能是一个更好的选择，因为它不会永久删除批注。