Как напечатать несколько выделенных областей на одной странице в Excel?

Если у вас есть большая таблица, содержащая много данных, и вы хотите распечатать некоторые выбранные диапазоны, которые не являются непрерывными, на одной странице, чтобы сэкономить бумагу, Excel предоставляет функцию Настройки области печати, которая позволяет нам печатать несколько выделений одновременно. Однако каждый выбранный диапазон будет напечатан на отдельной странице. В этой статье мы расскажем о том, как напечатать несколько несмежных выделений на одной странице.

Печать нескольких выделений с одного листа на одной странице с помощью кода VBA

Печать нескольких выделений с одного или нескольких листов на одной странице с помощью Kutools для Excel

Печать нескольких выделений с одного листа на одной странице с помощью кода VBA

Чтобы напечатать несколько выбранных несмежных диапазонов одного листа на одной странице, следующий код VBA может вам помочь. Пожалуйста, выполните следующие действия:

1. Нажмите клавишу Ctrl, чтобы выбрать диапазоны, которые вы хотите напечатать.

2. Удерживайте клавиши ALT + F11, и откроется окно Microsoft Visual Basic for Applications.

3. Щелкните Вставка > Модуль и вставьте следующий код в окно Модуля.

Код VBA: Печать нескольких выделений на одну страницу

Sub PrintOutRange()
'Updateby Extendoffice
Dim xRng1 As Range
Dim xRng2 As Range
Dim xNewWs As Worksheet
Dim xWs As Worksheet
Dim xIndex As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xWs = ActiveSheet
Set xNewWs = Worksheets.Add
xWs.Select
xIndex = 1
For Each xRng2 In Selection.Areas
    xRng2.Copy
    Set xRng1 = xNewWs.Cells(xIndex, 1)
    xRng1.PasteSpecial xlPasteValues
    xRng1.PasteSpecial xlPasteFormats
    xIndex = xIndex + xRng2.Rows.Count
Next
xNewWs.Columns.AutoFit
xNewWs.PrintOut
xNewWs.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

4. Затем нажмите клавишу F5, чтобы запустить этот код, и ваши выбранные диапазоны будут напечатаны сразу же, и они будут напечатаны на одной странице.

Печать нескольких выделений с одного или нескольких листов на одной странице с помощью Kutools для Excel

Приведенный выше код может помочь вам только в печати выбранных диапазонов с одного листа. Если вы хотите напечатать несколько выделений из нескольких листов на одной странице, приведенный выше код не сработает. Не беспокойтесь, здесь я могу представить вам удобный инструмент – Kutools для Excel. С помощью его утилиты Мастер множественной печати вы можете напечатать выделения с одного листа или нескольких листов на одной странице сразу.

После установки Kutools для Excel выполните следующие шаги:

1. Щелкните Kutools Plus > Печать > Мастер множественной печати, см. скриншот:

2. В Мастере множественной печати, щелкните кнопку, чтобы выбрать и добавить диапазон, который вы хотите напечатать, в список диапазонов для печати по одному (вы можете выбирать диапазоны с одного листа или нескольких листов), щелкните кнопку, чтобы удалить диапазоны, которые вам не нужны, см. скриншот:

3. После добавления выделений в список, пожалуйста, нажмите кнопку Далее >>, чтобы перейти к шагу 2 мастера, укажите настройки печати по вашему усмотрению, и вы можете добавить пустую строку между выбранными диапазонами, отметив опцию Добавить пустую строку между диапазонами, см. скриншот:

4. Затем продолжайте нажимать кнопку Далее >>; на шаге 3 мастера укажите действие для временного листа, вы можете активировать лист, но не печатать его, напечатать и сохранить его или напечатать и удалить его. См. скриншот:

5. Нажмите кнопку Завершить, все выбранные диапазоны будут вставлены в новый лист в виде связанных объектов-изображений. Вы можете перетаскивать и переупорядочивать их на листе. См. скриншот:

6. Когда вы печатаете этот новый лист, диапазоны будут напечатаны на одной странице, как вам нужно.

Нажмите, чтобы узнать больше об этом инструменте Мастер множественной печати.

Демонстрация: Печать нескольких выделений с одного или нескольких листов на одной странице с помощью Kutools для Excel