KutoolsforOffice — Одно решение — пять мощных инструментов.Меньше усилий — больше результата.

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

АвторSiluviaДата изменения

По умолчанию Excel печатает несмежные (несвязанные) выделенные столбцы на отдельных страницах. Хотите распечатать их вместе на одной странице? Вот как это сделать.

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


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

С помощью кода VBA вы можете распечатать несколько выделенных столбцов на одной странице. Выполните следующие действия.

1. Нажмите одновременно клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.

2. В окне Microsoft Visual Basic для приложений выберите Вставка > Модуль. Затем скопируйте и вставьте приведённый ниже код VBA в окно модуля.

Код VBA: Печать выделенных столбцов вместе

Sub Print_MultiAreas()
	Dim xRg As Range
	Dim xSht As Worksheet
	Dim xArea As Range
	Dim xTxt As String
	On Error Resume Next
	xTxt      = ActiveWindow.RangeSelection.Address
	Set xRg   = Application.InputBox("Please select columns:", "Kutools for Excel", xTxt, , , , , 8)
	If xRg Is Nothing Then Exit Sub
		Set xSht = Worksheets.Add(After: = Sheets(Sheets.Count))
		For Each xArea In xRg.Areas
			xArea.Copy Destination: = xSht.Range(xArea.Address)
			xSht.Range(xArea.Address).Value = xArea.Value
		Next
		xSht.PrintPreview
		'xSht.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
		Application.DisplayAlerts = False
		xSht.Delete
		Application.DisplayAlerts = True
		xRg.Parent.Activate
	End Sub

3. Нажмите клавишу F5, чтобы запустить код. После этого откроется диалоговое окно Kutools для Excel — выберите нужные столбцы для печати, удерживая клавишу Ctrl и щелкая по каждому из них. Завершите выбор нажатием кнопки OK. См. снимок экрана:

Снимок экрана, показывающий диалоговое окно выбора столбцов для печати

4. После этого откроется окно предварительного просмотра печати. Нажмите кнопку Печать, чтобы начать печать.

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


Легко печатайте выделенные столбцы вместе с помощью замечательного инструмента

Если работа с кодом VBA вызывает у вас затруднения, попробуйте утилиту Мастер печати нескольких выделенных областей из пакета Kutools для Excel. С её помощью вы легко распечатаете несколько выделенных столбцов на одной странице — всего за несколько щелчков!

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

1. Выделяйте столбцы по одному, удерживая клавишу Ctrl. Затем нажмите KUTOOLS PLUS > Печать > Мастер печати нескольких выделенных областей.

Снимок экрана с опцией «Мастер печати нескольких выделенных областей» на вкладке Kutools в ленте

2. В диалоговом окне Мастер печати нескольких выделений – Шаг 1 из 3 все выделенные столбцы отображаются в списке. Нажмите кнопку Готово.

Снимок экрана первого шага (из трёх) мастера печати нескольких выделенных областей

3. Затем все выделенные столбцы извлекаются как объекты и размещаются на пустом листе (по умолчанию — в один столбец; при желании вы можете изменить их расположение). После этого начните печать листа.

Снимок экрана выбранных столбцов, извлечённых как объекты для печати на пустом листе

Примечание: если вы хотите задать настройки печати, нажмите кнопку Далее на этом шаге диалогового окна (1 из 3) и укажите необходимые параметры, как показано на снимке экрана ниже.

Снимок экрана диалогового окна параметров печати в мастере печати нескольких выделенных областей Kutools

Kutools для Excel— раскройте весь потенциал Excel с помощью более чем 300 незаменимых инструментов, которые ускоряют и упрощают вашу работу, а также воспользуйтесь возможностями ИИ для более разумной обработки данных и повышения продуктивности.Получить сейчас

Лучшие инструменты повышения продуктивности в Office

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

Раскройте весь потенциал 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.

ExcelWordOutlookTabsPowerPoint
  • Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
  • Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
  • Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
  • 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
  • Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек