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

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

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

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

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

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

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

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

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

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

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

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

После этого появится диалоговое окно с информацией о количестве удалённых строк — просто закройте его.

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

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

1. Нажмите KUTOOLS PLUS > Печать > Мастер печати нескольких выделений, чтобы открыть Мастер печати нескольких выделений.

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

Примечания:

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

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

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

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