Vba excel печать на одной странице

Здравствуйте!
Ребята как через макрос, перед входом в окно просмотра печать,
[vba]

[/vba]
вписать все столбцы таблицы на одну страницу?
Пробовал макрорекордером определить, выдает объемный код и что конкретно необходимо выбрать для выполнения необходимого действия, неясно.

Сообщение отредактировал Сергей13 — Вторник, 10.12.2019, 23:10

Если у вас есть большой рабочий лист, содержащий много данных, и теперь вы хотите напечатать некоторые выбранные диапазоны, которые не являются непрерывными, на одной странице, чтобы вы могли сэкономить много бумаги. 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, выполните следующие действия:

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

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

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

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

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

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

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

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

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