Как распечатать все листы, кроме одного конкретного листа в 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, пожалуйста, сделайте, как показано ниже :(Скачать бесплатно Kutools for Excel сейчас!)

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

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

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

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