避免打印特定页面

Question

我创建了一个工作文档。由于公司计算机上的安全性，我在文档上的宏不会自动启用。

我在第 1 页上添加了有关如何启用它的说明。现在，当有人打印时，它会打印此说明页。

我尝试模拟类似于我在下面使用的原始宏，因为不打印空白内容控件，将我的说明页打印为空白，但这无效。

Sub PrintReport()
Dim cc As ContentControl
For Each cc In ThisDocument.ContentControls
    If Left(cc.Range.Text, 19) = "Click here to enter" Then
        cc.Range.Font.ColorIndex = wdWhite
    End If
Next
ActiveDocument.PrintOut
For Each cc In ThisDocument.ContentControls
   If Left(cc.Range.Text, 19) = "Click here to enter" Then
        cc.Range.Font.ColorIndex = 15
   End If
Next
End Sub

我还尝试使用此站点的帮助创建一个宏，以仅打印特定页面（即 2-5）。这行不通。

Sub SpecialPgOnePrint()
Application.PrintOut FileName:="Visitation Report (Fillable-Final)", _
  Range:=wdPrintRangeOfPages, Pages:="2-5"
End Sub

我将不胜感激，以帮助确定一种方法，以A.不打印第1页（最好）或B.从第2页开始打印

Answer 1

尝试以下操作

Option Explicit
Sub PagePrint()
    With ActiveDocument
        .PrintOut Range:=wdPrintFromTo, _
            From:=Format(.Sections(1).Headers(1).PageNumbers.StartingNumber + 2), _
            To:=Format(.Range.Information(wdActiveEndAdjustedPageNumber))
    End With
End Sub