Как распечатать несколько выделенных фрагментов на одной странице в Excel?
Если у вас большой лист с объёмными данными и вы хотите распечатать несколько несмежных диапазонов на одной странице, чтобы сэкономить бумагу, Excel предлагает функцию Задать Область печати, которая позволяет печатать сразу несколько выделенных фрагментов. Однако каждый такой диапазон будет напечатан на отдельной странице. В этой статье рассказывается, как распечатать несколько несмежных выделений на одной странице.
Печать нескольких выделенных фрагментов с одного листа на одной странице с помощью кода VBA
Печать нескольких выделенных фрагментов с одного или нескольких листов на одной странице с помощью Kutools для Excel
Печать нескольких выделенных фрагментов с одного листа на одной странице с помощью кода VBA
Чтобы распечатать несколько выбранных несмежных фрагментов одного листа на одной странице, воспользуйтесь приведённым ниже кодом VBA. Выполните следующие действия:
1. Нажмите клавишу Ctrl и выделите диапазоны, которые хотите распечатать.
2. Удерживая клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.
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. После добавления выделений в список нажмите кнопку Далее >>, чтобы перейти ко второму шагу мастера. Укажите необходимые настройки печати и, при необходимости, добавьте пустую строку между диапазонами — для этого установите флажок Добавить пустую строку между каждым диапазоном для печати (см. снимок экрана):
4. Далее нажмите кнопку Далее >>. На шаге 3 мастера укажите параметры действия для временного листа: вы можете активировать лист без печати, распечатать и сохранить его или распечатать и удалить. См. снимок экрана:
5. Нажмите кнопку Готово. Все выбранные диапазоны будут вставлены на новый лист в виде связанных рисунков. Их можно свободно перемещать и изменять расположение на листе. См. снимок экрана:
6. При печати этого нового листа все диапазоны будут размещены на одной странице — именно так, как вам нужно.
Нажмите, чтобы узнать больше о функции «Мастер печати нескольких выделений».
Kutools для Excel— раскройте весь потенциал Excel с помощью более чем 300 незаменимых инструментов, которые ускоряют и упрощают вашу работу, а также воспользуйтесь возможностями ИИ для более разумной обработки данных и повышения продуктивности.Получить сейчас
Демонстрация: Печать нескольких выделенных фрагментов с одного или нескольких листов на одной странице с помощью Kutools для Excel
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек