Note: The other languages of the website are Google-translated. Back to English

Как распечатать несколько выделений на одной странице в 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 for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (2)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Я попробовал ваш код VBA с Excel 2016 и получил сообщение об ошибке: Ошибка компиляции: подфункция не определена. Эта строка выделена: Set xRng1 = xNewWs.Cells(xIndex, 1)
Этот комментарий был сведен к минимуму модератором на сайте
как распечатать область выделения с помощью мультипечати? я имею в виду область выбора, которую я хочу напечатать 10 раз
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL