Пакетная печать нескольких выборок (всех областей печати) на одной странице в Excel

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

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

2. Нажмите Вставить > Модули, а затем вставьте приведенный ниже код VBA в новое открывающееся окно модуля.

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

Sub Extract_to_Print()
Dim Rg As Range, Rg1 As Range, Rg2 As Range
Dim xAddress As String
Dim xSht As Worksheet
Dim I As Long
Dim xScreenUpdate As Boolean
Dim xAlert As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set Rg = Application.InputBox("Please select ranges you will print:", "Kutools for Excel", xAddress, , , , , 8)
If Rg Is Nothing Then Exit Sub
xScreenUpdate = Application.ScreenUpdating
xAlert = Application.DisplayAlerts
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xSht = ThisWorkbook.Worksheets.Add
I = 1
For Each Rg1 In Rg.Areas
Rg1.Copy xSht.Range("A" & I)
I = I + Rg1.Rows.Count
Next
xSht.PrintOut
xSht.Delete
Application.ScreenUpdating = xScreenUpdate
Application.DisplayAlerts = xAlert
End Sub

3. Нажмите F5 ключ или щелкните Run кнопку для запуска этого VBA.

4. Теперь появится диалоговое окно Kutools for Excel. Выберите несколько строк, которые вы хотите распечатать, и нажмите кнопку OK кнопку, чтобы напечатать эти строки.

Внимание: Держа Ctrl key, вы можете выбрать несколько несмежных строк одновременно.

Если мы можем скопировать эти непоследовательные строки и вставить их как последовательный диапазон на другой лист, мы сможем легко распечатать их на одной странице. Этот метод представит Kutools for Excel's Копировать диапазоны утилита, чтобы справиться с этим.

1. Создайте новый рабочий лист, затем выберите строки, которые вы будете распечатывать из своей таблицы, и нажмите Кутулс > Копировать диапазоны.

Внимание: Держа Ctrl клавишу, вы можете выбрать несколько непоследовательных строк одновременно.

2. В открывшемся диалоговом окне «Копировать несколько диапазонов» установите флажок Все и нажмите Ok .

Внимание: Включая высоту строки вариант и Включая ширину столбца параметры скопируют высоту строк и ширину столбцов выбранных диапазонов и вставят их в целевой диапазон.

3. Выберите ячейку A1 в новом созданном листе и щелкните значок OK Кнопка.

4. Оставайтесь на рабочем листе назначения и щелкните Кутулс > Удалить > Удалить пустые строки > В активном листе.

Затем появляется диалоговое окно, в котором показано, сколько строк было удалено. Просто закрой это.

5. Нажмите Файл (или Кнопка офиса)> Печать / PDF чтобы напечатать эти строки.

На самом деле Kutools для проектов Excel Мастер печати множественного выбора для совместной печати нескольких диапазонов в Excel.

1. Нажмите Предприятие > Печать > Мастер печати множественного выбора , чтобы открыть мастер печати множественного выбора.

2. В открывшемся мастере печати множественного выбора нажмите Добавить кнопка  чтобы добавить строки, которые вы будете печатать вместе, и щелкните Завершить .

Ноты:

(1) После нажатия Добавить кнопка , вы можете выбрать несколько непоследовательных диапазонов на одном листе, удерживая Ctrl клавишу и затем выбирая их по очереди;

(2) Чтобы удалить диапазон / строку из Диапазоны для печати список, просто выберите этот диапазон / строку и щелкните Удалить кнопка.

(3) Эта утилита не поддерживает печать целых строк и столбцов, например целой строки $ 4: $ 4, или весь столбец $ B: $ B.

3. Выбранные строки / диапазоны были вставлены как связанные изображения на новый рабочий лист. Продолжайте нажимать Файл (или Кнопка офиса)> Печать / PDF распечатать это.