Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як надрукувати кілька виділень на одній сторінці в 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 для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    ok · 4 years ago
    how to print selection area with multi print ? i means selection area i wan to print 10 times
  • To post as a guest, your comment is unpublished.
    Mooring10 · 5 years ago
    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 [b]xRng1[/b] = xNewWs.Cells(xIndex, 1)