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的方法A.不打印page1（首选）或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

避免打印特定页面

1 个答案: