VBA从Excel打印而不打印注释

我想要打印一些工作簿的表格，而不需要列出单元格注释的额外页面。

做了相当多的研究，但还没有制定出如何做到这一点

我使用的是以下内容：

Sub PrintAllButtonEvent(control As IRibbonControl) Dim theWorksheet As Worksheet For Each theWorksheet In Sheets If Left(theWorksheet.Name, 1) <> "_" Then setPrintSize theWorksheet UpdateHeader theWorksheet theWorksheet.PrintOut End If Next theWorksheet End Sub 

PrintOut方法似乎没有禁止注释的选项。

我可以通过执行以下操作手动执行此操作：

1）文件 – >打印 – >页面设置 – >表

2）将评论下拉改为（无），而不是在工作表结束

但我真的需要能够从代码做到这一点。

有任何想法吗？ 谢谢

Answer 1

写这个问题的LOL给了我一个线索，我解决了这个问题。

它不是一个打印选项，它是一个页面设置选项。

 Worksheet.PageSetup.PrintComments = xlPrintNoComments 

testing和工作

Answer 2

这种方法也行得通 – 见最后一行

 Sheets("CUSTOMER").Select Range("CustomerSummaryPrintArea").Select Range("CustomerSummaryPrintArea").Activate Application.PrintCommunication = False With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .PrintHeadings = False .PrintGridlines = False .PrintComments = False` 

Answer 3

 .PrintComments = False 

是在2016年强制他们的唯一方法xlPrintNoComments不这样做，实际上不断让他们回来。 可能的错误？

打印选项的指针是logging一个macros，设置一切你想要什么，然后看看Excel给你什么。 在这种情况下，它不断给我xlPrintNoComments ，正如我刚才所述，不起作用。