Пакетно отпечатване на множество селекции (всички области за печат) на една страница в 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 клавиша или щракнете върху бягане бутон за стартиране на този VBA.

4. Сега се появява диалогов прозорец Kutools за Excel. Моля, изберете няколко реда, които ще отпечатате, и щракнете върху OK бутон за отпечатване на тези редове.

Забележка: Задържане на Ctrl можете да изберете няколко несъседни реда едновременно.

Ако можем да копираме тези непоследователни редове и да ги поставим като последователен диапазон в друг работен лист, можем лесно да ги отпечатаме на една страница. Този метод ще въведе Kutools за Excel Копиране на диапазони полезност за справяне с него.

1. Създайте нов работен лист, след това изберете редове, които ще отпечатате от вашата таблица, и щракнете Kutools > Копиране на диапазони.

Забележка: Задържане на Ctrl можете да изберете няколко непоследователни реда едновременно.

2. В отварящия се диалогов прозорец Копиране на множество диапазони поставете отметка Всички и щракнете върху Ok бутон.

Забележка: Най- Включително височина на реда опция и Включително ширина на колоната опциите ще копират височините на редовете и ширините на колоните на избраните диапазони и ще ги поставят в целевия диапазон.

3. Изберете клетка A1 в новосъздадения работен лист и щракнете върху OK Бътън.

4. Останете в целевия работен лист и щракнете Kutools > Изтрий > Изтриване на празни редове > В активен лист.

След това се появява диалогов прозорец и ви показва колко реда са изтрити. Просто го затворете.

5. Щракнете върху досие (или Офис бутон)> Изпринти за да отпечатате тези редове.

Всъщност Kutools за дизайни на Excel Съветник за отпечатване на множество избори за да отпечатате няколко диапазона заедно в Excel.

1. кликване Enterprise > Печат > Съветник за отпечатване на множество избори за да отворите съветника за печат на множество избори.

2. Щракнете върху отварящия се съветник за печат на множество избори Добави бутон  за да добавите редове, които ще отпечатате заедно, и щракнете върху завършеност бутон.

Забележки:

(1) След като щракнете върху Добави бутон , можете да изберете няколко непоследователни диапазона в един работен лист, като задържите Ctrl ключ и след това да ги изберете един по един;

(2) За да премахнете диапазон/ред от Диапазони за отпечатване списък, просто изберете този диапазон/ред и щракнете върху Изтрий бутон.

(3) Тази помощна програма не поддържа отпечатване на цели редове и колони, като например цял ред от $ 4: $ 4, или цяла колона от $B:$B.

3. Избраните редове/диапазони са поставени като свързани картини в нов работен лист. Продължете, за да щракнете досие (или Офис бутон)> Изпринти за да го отпечатате.