Прескочи на основното съдържание

Как да отпечатате множество селекции на една страница в Excel?

Автор: Xiaoyang Последна промяна: 2020-07-17

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

Отпечатайте множество селекции от един работен лист на една страница с VBA код

Отпечатайте множество селекции от един или няколко работни листа на една страница с Kutools за Excel


Отпечатайте множество селекции от един работен лист на една страница с VBA код

За да отпечатате няколко избрани несвързани селекции от един работен лист на една страница, следният VBA код може да ви помогне, моля, направете следното:

1, Натиснете Ctrl за да изберете диапазоните, които искате да отпечатате.

2. Задръжте натиснат ALT + F11 ключове и отваря Microsoft Visual Basic за приложения прозорец.

3. Щракнете Поставете > Модулии поставете следния код в Модули Window.

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 за Excel

Горният код може да ви помогне само да отпечатате избраните диапазони от един работен лист, ако искате множество селекции от няколко работни листа да бъдат отпечатани на една страница, горният код няма да работи. Моля, не се притеснявайте, тук мога да ви представя един удобен инструмент – Kutools за Excel, Със своята Съветник за отпечатване на множество избори помощна програма, можете да отпечатате селекциите от един работен лист или няколко работни листа на една страница наведнъж.

Kutools за Excel : с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни

След инсталиране Kutools за Excel, моля, направете следните стъпки:

1. Щракнете Kutools плюс > Печат > Съветник за отпечатване на множество избори, вижте екранна снимка:

2. В Съветник за отпечатване на множество избори, Щракнете върхубутон за добавяне на документ бутон, за да изберете и добавите диапазона, който искате да отпечатате, в списъчното поле Диапазони за печат един по един (можете да изберете диапазоните от един работен лист или няколко работни листа), щракнете върху бутон за премахване на документ може да премахне диапазоните, от които не се нуждаете, вижте екранната снимка:

doc печат на множество селекции 2

3. След като добавите селекциите в списъчното поле, щракнете Следваща >> бутон, за да отидете на стъпка 2 от съветника, задайте настройките за печат според нуждите си и можете да добавите празен ред между избраните диапазони чрез отметка Добавете празен ред между диапазоните опция, вижте екранна снимка:

doc печат на множество селекции 3

4. След това продължете да щраквате Следваща >> butoon, в стъпка 3 от съветника, задайте действието за временния работен лист, можете да активирате работния лист, но не отпечатвайте, отпечатайте работния лист и го запазете или отпечатайте работния лист и го изтрийте. Вижте екранна снимка:

doc печат на множество селекции 4

5. Щракнете завършеност всички избрани диапазони са поставени в нов работен лист като свързани картинни обекти. И можете да ги плъзгате и пренареждате в работния лист. Вижте екранна снимка:

doc печат на множество селекции 5

6. Когато отпечатате този нов работен лист, диапазоните ще бъдат отпечатани на една страница, както ви е необходимо.

Кликнете, за да научите повече за тази помощна програма Print Multiple Selection Wizard.

Изтеглете и изпробвайте безплатно Kutools за Excel сега!


Демонстрация: Отпечатайте множество селекции от един или няколко работни листа на една страница с Kutools за Excel

Kutools за Excel: с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. Изтеглете и изпробвайте безплатно сега!

Най-добрите инструменти за продуктивност в офиса

🤖 Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
Супер търсене: VLookup с множество критерии    VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар    Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки    Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
Топ 15 комплекта инструменти12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
how to print selection area with multi print ? i means selection area i wan to print 10 times
This comment was minimized by the moderator on the site
I tried your VBA code with Excel 2016 and I get an error: Compile Error: Sub of Function not defined. This line is highlighted: Set xRng1 = xNewWs.Cells(xIndex, 1)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations