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

Во многих случаях вам может понадобиться распечатать только последнюю страницу документа Word — например, страницу с подписью или итоговое резюме. К сожалению, Word по умолчанию не поддерживает печать только последней страницы. Хорошая новость в том, что существует два рабочих способа решить эту задачу.

• Способ 1: пакетная печать Последняя страница с помощью Kutools для Word
• Способ 2: пакетная печать Последняя страница с использованием макроса VBA

Пакетная печать Последняя страница каждого документа с помощью Kutools

Kutools для Word содержит специальную функцию Пакетная печать, которая позволяет легко применять одно и то же правило печати ко многим документам одновременно. С её помощью можно напечатать только последнюю страницу каждого документа, не открывая файлы по отдельности. Вы можете работать как с отдельными файлами, так и со всеми папками (включая подпапки).

1. Откройте Word. На ленте нажмите KUTOOLS PLUS > Пакетная печать.

   

2. В окне Печать определённых страницвыполните следующие действия:
   1. Добавьте документы, которые хотите распечатать:
      • Нажмите Добавить файлы, чтобы выбрать нужные документы Word.
      • Или нажмите Добавить папку, чтобы добавить все документы из папки и её подпапок.
   2. Выберите Последняя страница в разделе Диапазон печати.
   3. Нажмите Печать.

      

      Советы:

      • Другие параметры в Диапазон печати позволяют печатать первую страницу, все страницы, только нечётные или чётные, а также заданный диапазон страниц во всех документах.
      • Включите Печать в обратном порядке, чтобы изменить порядок вывода страниц и правильно упорядочить распечатанные листы.

После завершения пакетной обработки Kutools для Word отображает окно сведений, в котором указано, сколько документов было успешно напечатано.

Пакетная печать Последняя страница каждого документа с помощью VBA

Если вы предпочитаете встроенное решение без надстроек, воспользуйтесь макросом VBA для печати только последней страницы каждого документа Word из папки. Такой подход требует небольшой настройки, но после её завершения один и тот же макрос можно использовать повторно — всякий раз, когда это понадобится.

1. В новом или отдельном документе Word, который вы не планируете печатать, нажмите Alt + F11, чтобы открыть редактор VBA.
2. Нажмите Вставка>Модуль.

   

3. Вставьте приведённый ниже макрос в окно модуля, затем замените C:\YourFolder\путём к Вашей собственной папке.

   Sub BatchPrintLastPage()
       Dim folderPath As String
       Dim fileName As String
       Dim doc As Document
       Dim lastPage As Long
   
       ' Set your folder path here (must end with a backslash)
       folderPath = "C:\YourFolder\"
       
       If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\"
   
       fileName = Dir(folderPath & "*.doc*")
   
       Application.ScreenUpdating = False
   
       Do While fileName <> ""
           Set doc = Documents.Open( _
               fileName:=folderPath & fileName, _
               ReadOnly:=True, _
               AddToRecentFiles:=False _
           )
   
           doc.Repaginate
           lastPage = doc.ComputeStatistics(wdStatisticPages)
   
           doc.PrintOut Range:=wdPrintRangeOfPages, Pages:=CStr(lastPage), Background:=False
   
           doc.Close SaveChanges:=wdDoNotSaveChanges
           fileName = Dir()
       Loop
   
       Application.ScreenUpdating = True
   End Sub
   

4. Нажмите F5, чтобы запустить макрос.

Макрос печатает только последнюю страницу каждого документа Word из указанной папки. Документы, расположенные в подпапках, не учитываются.

Заключение

Печать только последней страницы нескольких документов Word — функция, которую Word не поддерживает «из коробки». Если вам нужно быстрое и наглядное решение, воспользуйтесь пакетной печатью из Kutools — это самый простой и надёжный способ. А если вы предпочитаете встроенный подход и не против небольшой начальной настройки, макрос VBA отлично справится с задачей и пригодится снова, когда понадобится.

Надеемся, что этот учебник оказался для вас полезным! Хотите больше советов по работе с Word и практических решений? Пожалуйста, нажмите здесь, чтобы ознакомиться со всей нашей коллекцией руководств по Word.