Перейти к основному содержанию

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

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

Распечатать несколько выделений из одного рабочего листа на одной странице с кодом VBA

Распечатайте несколько вариантов выбора из одного или нескольких листов на одной странице с помощью Kutools for 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 for Excel

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

Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно и без ограничений в течение 30 дней

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

1. Нажмите Кутулс Плюс > Печать > Мастер печати множественного выбора, см. снимок экрана:

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

документ распечатать несколько вариантов выбора 2

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

документ распечатать несколько вариантов выбора 3

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

документ распечатать несколько вариантов выбора 4

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

документ распечатать несколько вариантов выбора 5

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

Нажмите, чтобы узнать больше об этой утилите Print Multiple Selection Wizard.

Загрузите бесплатную пробную версию Kutools for Excel прямо сейчас!


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

Kutools for Excel: с более чем 300 удобными надстройками Excel, которые можно попробовать бесплатно без ограничений в течение 30 дней. Загрузите и бесплатную пробную версию прямо сейчас!

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

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

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
how to print selection area with multi print ? i means selection area i wan to print 10 times
This comment was minimized by the moderator on the site
I tried your VBA code with Excel 2016 and I get an error: Compile Error: Sub of Function not defined. This line is highlighted: Set xRng1 = xNewWs.Cells(xIndex, 1)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations