Установить по умолчанию для печати только определенных страниц в MS Word

Question

Как настроить документ MS Word на печать только первых x страниц по умолчанию? У меня большой документ, но я не хочу, чтобы люди, которые его распечатывали, случайно напечатали все это вместо первых 11 страниц (которые я хочу, чтобы они напечатали).

Answer 1

Я считаю, что единственный способ сделать это - создать макрос.

Добавьте предпочитаемый код в макрос и измените X & Y на нужный диапазон (в вашем случае 1 и 11).

---

Используйте этот код, если хотите, чтобы он отображал диалоговое окно печати и разрешал выбор любого диапазона, но просто установите по умолчанию страницы XY:

Sub FilePrint()
  With ActiveDocument
       ' unprotect
       If .ProtectionType <> wdNoProtection Then
          .Unprotect Password:="snip"
       End If
       .Bookmarks("RunSpellCheckButton").Range.Font.Hidden = True
        With Dialogs(wdDialogFilePrint)
            .Range = wdPrintFromTo
            .From = X
            .To = Y
            .Show
        End With
      .Bookmarks("RunSpellCheckButton").Range.Font.Hidden = False
       ' reprotect
      .Protect Type:=wdAllowOnlyFormFields, NoReset:=True, Password:="snip"
  End With
End Sub

Используйте этот код, если вы хотите, чтобы он автоматически печатал XY-страницы при запуске макроса без предварительного отображения диалогового окна печати:

Sub FilePrint()
  With ActiveDocument
       ' unprotect
       If .ProtectionType <> wdNoProtection Then
          .Unprotect Password:="snip"
       End If
       .Bookmarks("RunSpellCheckButton").Range.Font.Hidden = True
      .PrintOut Range:=wdPrintFromTo, From:="X", To:="Y"
      .Bookmarks("RunSpellCheckButton").Range.Font.Hidden = False
       ' reprotect
      .Protect Type:=wdAllowOnlyFormFields, NoReset:=True, Password:="snip"
  End With
End Sub

---

Предоставлено: Джей Фридман (Microsoft MVP).