Note: The other languages of the website are Google-translated. Back to English

Как распечатать все листы, кроме одного конкретного листа в Excel?

В Excel распечатка листов может быть для вас повседневной работой. Однако пробовали ли вы когда-нибудь напечатать все листы, кроме одного конкретного? Например, в этой книге вы хотите распечатать все листы, кроме листа с именем «Итого», как вы можете быстро с этим справиться?

Распечатать весь лист, кроме одного, с VBA

Распечатайте определенные страницы, которые вам нужны, с помощью Kutools for Excelхорошая идея3


Распечатать весь лист, кроме одного, с VBA

Вот код VBA, который может печатать все листы, кроме одного конкретного листа.

1. Активируйте книгу, листы которой вы хотите распечатать, и нажмите Alt + F11 ключи, чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > модульe, вставьте приведенный ниже код в сценарий модуля.

VBA: печатный лист, кроме одного

Sub printsheets()
'UpdatebyExtendoffice20161031
 Dim xWs As Worksheet
 Application.ScreenUpdating = False
 For Each xWs In ThisWorkbook.Worksheets
  If xWs.Visible = True Then
   If xWs.Name <> "Total" Then
       With xWs.PageSetup
        .PrintArea = "A1:B15" ' USE YOUR PRINTAREA
        .Zoom = False
        .FitToPagesTall = 1
        .FitToPagesWide = 1
       End With
       xWs.PrintOut
   End If
  End If
 Next xWs
 Application.ScreenUpdating = False
 MsgBox "Sheet “Total” has not been printed", vbInformation, "Kutools for Excel"
End Sub

документ распечатать все, кроме 1

Примечание: В коде Всего in Если xWs.Name <> "Total", то и MsgBox «Всего листов не напечатано» это имя листа, которое вы не хотите печатать, и A1: B15 in .PrintArea = "A1: B15" - это диапазон, который вы хотите напечатать на каждом листе. Вы можете менять их по своему усмотрению.

3. Нажмите F5 нажмите клавишу, чтобы запустить код, а затем появится диалоговое окно, напоминающее вам, что конкретный лист не был напечатан. Смотрите скриншот:
документ распечатать все, кроме 2

4. Нажмите OK для закрытия диалога.


Распечатайте определенные страницы, которые вам нужны, с помощью Kutools for Excel

Если вы просто хотите распечатать только четные или нечетные страницы или определенные страницы листа, вы можете применить Kutools for ExcelАвтора Печать указанных страниц утилита, которая может быстро оказать вам услугу.

Kutools for Excel, с более чем 300 удобные функции, облегчающие вашу работу. 

После установки Kutools for Excel, пожалуйста, сделайте, как показано ниже :(Скачать бесплатно Kutools for Excel сейчас!)

1. Активируйте лист, на котором вы хотите распечатать определенные страницы, нажмите Кутулс Плюс > печать > Печать указанных страниц. Смотрите скриншот:
документ распечатать все, кроме 3

2. Затем в Печать указанных страниц диалоговое окно, проверьте параметры в зависимости от ваших потребностей в печати. Смотрите скриншот:
документ распечатать все, кроме 4

3. Нажмите Печать для печати страниц.

Наконечник. Если вы хотите получить бесплатную пробную версию функции печати указанных страниц, пожалуйста, перейдите к бесплатной загрузке Kutools for Excel сначала, а затем перейдите к применению операции в соответствии с вышеуказанными шагами.


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

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

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (0)
Оценок пока нет. Оцените первым!
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL