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

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

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

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 или нажмите кнопку Выполнить, чтобы запустить этот код VBA.

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

Примечание: Удерживая клавишу Ctrl, вы можете выбрать несколько несмежных строк одновременно.

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

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

Примечание: Удерживая клавишу Ctrl, вы можете выбрать несколько несмежных строк одновременно.

2. В открывшемся диалоговом окне Копировать несколько диапазонов отметьте опцию Все и нажмите кнопку ОК.

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

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

4. Оставайтесь в целевом листе и нажмите Kutools > Удалить > Удалить пустые строки > Активный лист.

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

5. Нажмите Файл (или кнопку Office) > Печать, чтобы напечатать эти строки.

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

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

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

Примечания:

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

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

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

3. Выбранные строки/диапазоны были вставлены как связанные изображения в новый лист. Далее нажмите Файл (или кнопку Office) > Печать , чтобы напечатать их.