Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

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

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


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


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

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

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

3. Щелчок Вставить > модуль, и вставьте следующий код в модуль Окно.

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

Sub PrintOutRange()
'Update 20150528
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, бесплатно попробовать без ограничений в 60-дни.

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

1. Щелчок Предприятие > печать > Мастер печати нескольких выборок, см. снимок экрана:

doc распечатать несколько вариантов 1

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

doc распечатать несколько вариантов 2

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

doc распечатать несколько вариантов 3

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

doc распечатать несколько вариантов 4

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

doc распечатать несколько вариантов 5

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

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

Скачать и бесплатно пробную версию Kutools для Excel сейчас!


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

Kutools for Excel: с более чем 200 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни. Скачать и бесплатно пробную версию!


Kutools для Excel решает большинство ваших проблем и повышает производительность на 80%

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

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

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    ok · 1 years ago
    how to print selection area with multi print ? i means selection area i wan to print 10 times
  • To post as a guest, your comment is unpublished.
    Mooring10 · 3 years ago
    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 [b]xRng1[/b] = xNewWs.Cells(xIndex, 1)