Как распечатать все листы, кроме одного конкретного листа в Excel?
В Excel распечатка листов может быть для вас повседневной работой. Однако пробовали ли вы когда-нибудь напечатать все листы, кроме одного конкретного? Например, в этой книге вы хотите распечатать все листы, кроме листа с именем «Итого», как вы можете быстро с этим справиться?
Распечатать весь лист, кроме одного, с VBA
Распечатайте определенные страницы, которые вам нужны, с помощью Kutools for Excel
Распечатать весь лист, кроме одного, с 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
Примечание: В коде Всего in Если xWs.Name <> "Total", то и MsgBox «Всего листов не напечатано» это имя листа, которое вы не хотите печатать, и A1: B15 in .PrintArea = "A1: B15" - это диапазон, который вы хотите напечатать на каждом листе. Вы можете менять их по своему усмотрению.
3. Нажмите F5 нажмите клавишу, чтобы запустить код, а затем появится диалоговое окно, напоминающее вам, что конкретный лист не был напечатан. Смотрите скриншот:
4. Нажмите OK для закрытия диалога.
Распечатайте определенные страницы, которые вам нужны, с помощью Kutools for Excel
Если вы просто хотите распечатать только четные или нечетные страницы или определенные страницы листа, вы можете применить Kutools for ExcelАвтора Печать указанных страниц утилита, которая может быстро оказать вам услугу.
Kutools for Excel, с более чем 300 удобные функции, облегчающие вашу работу. |
После установки Kutools for Excel, пожалуйста, сделайте, как показано ниже :(Скачать бесплатно Kutools for Excel сейчас!)
1. Активируйте лист, на котором вы хотите распечатать определенные страницы, нажмите Кутулс Плюс > Печать > Печать указанных страниц. Смотрите скриншот:
2. Затем в Печать указанных страниц диалоговое окно, проверьте параметры в зависимости от ваших потребностей в печати. Смотрите скриншот:
3. Нажмите Печать / PDF для печати страниц.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!