Перейти до основного матеріалу

Як надрукувати кілька виділень на одній сторінці в Excel?

Якщо у вас є великий аркуш, який містить багато даних, і зараз, ви хочете надрукувати на одній сторінці деякі вибрані діапазони, які не є суцільними, щоб ви могли заощадити багато паперу. Excel надає Встановити область друку функція для друку кількох виділень одночасно, але кожен вибраний діапазон буде надрукований на одній сторінці окремо. У цій статті мова піде про те, як надрукувати кілька неперервних виділень на одній сторінці.

Надрукуйте кілька виділень з одного аркуша на одній сторінці з кодом VBA

Надрукуйте кілька виділених фрагментів з одного або кількох аркушів на одній сторінці за допомогою Kutools для Excel


Надрукуйте кілька виділень з одного аркуша на одній сторінці з кодом VBA

Щоб надрукувати кілька вибраних несуміжних виділень одного робочого аркуша на одній сторінці, вам може допомогти наступний код VBA, будь ласка, виконайте наступне:

1. Прес Ctrl , щоб вибрати діапазони, які потрібно надрукувати.

2. Утримуйте клавішу ALT + F11 і відкриває Microsoft Visual Basic для додатків вікна.

3. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно

Код 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 Plus > друк > Друк майстра множинного вибору, див. скріншот:

2, в Друк майстра множинного вибору, Натиснітькнопка додавання документа кнопку, щоб вибрати та додати діапазон, який потрібно надрукувати, у вікно списку "Діапазони для друку" по одному (можна вибрати діапазони з одного аркуша або декількох аркушів), клацніть кнопку видалення документа - кнопка може видалити потрібні вам діапазони, див. знімок екрана:

doc надрукувати кілька виділень 2

3. Після додавання вибраних елементів у поле списку, натисніть Наступна >> , щоб перейти до кроку 2 майстра, вкажіть необхідні параметри друку, і ви можете додати порожній рядок між вибраними діапазонами, встановивши Додайте порожній рядок між діапазонами варіант, див. скріншот:

doc надрукувати кілька виділень 3

4. Потім продовжуйте клацати Наступна >> butoon, на кроці 3 майстра вкажіть дію для тимчасового аркуша, ви можете активувати аркуш, але не друкувати, друкувати аркуш і зберігати його, або друкувати аркуш і видаляти його. Дивіться знімок екрана:

doc надрукувати кілька виділень 4

5. Клацання обробка кнопку, усі вибрані діапазони були вставлені на новий аркуш як пов'язані об'єкти зображення. І ви можете перетягувати та переставляти їх на аркуші. Дивіться знімок екрана:

doc надрукувати кілька виділень 5

6. Коли ви надрукуєте цей новий аркуш, діапазони будуть надруковані на одній сторінці, як вам потрібно.

Клацніть, щоб дізнатись більше про цю утиліту Друк множинного вибору.

Завантажте та безкоштовну пробну версію Kutools для Excel зараз!


Демонстрація: надрукуйте кілька виділених елементів з одного або кількох аркушів на одній сторінці за допомогою Kutools для Excel

Kutools для Excel: з більш ніж 300 зручними надбудовами Excel, спробуйте безкоштовно без обмежень протягом 30 днів. Завантажте та безкоштовно пробну версію зараз!

Найкращі інструменти продуктивності офісу

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

Покращуйте свої навички 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