Как распечатать все листы в Excel, кроме одного конкретного?
При работе в Excel часто возникает необходимость печати сразу нескольких листов. Но как быть, если нужно распечатать все листы книги, кроме одного конкретного? Например, вы можете захотеть напечатать всё, кроме листа с названием «Total». В этом руководстве мы покажем два простых способа быстро исключить нужный лист из печати.
Печать всех листов, кроме одного, с помощью VBA
Печать нужных вам страниц с помощью Kutools для Excel
Печать всех листов, кроме одного, с помощью VBA
Ниже приведён код VBA, который позволяет распечатать все листы, кроме указанного.
1. Активируйте книгу, листы которой вы хотите распечатать, и нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. Нажмите Вставка > Модуль, затем вставьте приведённый ниже код в окно модуля.
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
Примечание: В коде название листа Total в строках If xWs.Name «Total» Then и MsgBox «Лист Total не был распечатан» — это имя листа, который вы не хотите печатать, а A1:B15 в строке .PrintArea = "A1:B15" — это диапазон, который вы хотите распечатать на каждом листе. Вы можете изменить их по своему усмотрению.
3. Нажмите клавишу F5, чтобы запустить код. После этого появится диалоговое окно с напоминанием о том, что указанный лист не был распечатан. См. снимок экрана:
4. Нажмите кнопку ОК, чтобы закрыть диалоговое окно.
Печать нужных вам страниц с помощью Kutools для Excel
Если вам нужно распечатать только чётные или нечётные страницы, а также определённые страницы листа, воспользуйтесь функцией Kutools для Excel — Печать указанных страниц, которая мгновенно решит эту задачу.
1. Активируйте лист, на котором нужно распечатать определённые страницы, и нажмите KUTOOLS PLUS > Печать > Печать указанных страниц. См. снимок экрана:
2. Затем в диалоговом окне Печать указанных страниц выберите параметры в соответствии с вашими требованиями к печати. См. снимок экрана:
3. Нажмите кнопку Печать, чтобы распечатать страницы.
Kutools для Excel— раскройте весь потенциал Excel с помощью более чем 300 незаменимых инструментов, которые ускоряют и упрощают вашу работу, а также воспользуйтесь возможностями ИИ для более разумной обработки данных и повышения продуктивности.Получить сейчас
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек