Як виключити певний аркуш під час друку книги?

Якщо у вас є книга, яка містить декілька аркушів, які потрібно надрукувати, але виключити певний, чи існує якийсь швидкий і простий спосіб для нас надрукувати всі аркуші, крім одного, в Excel?

Виключіть певний аркуш під час друку книги з кодом VBA

---

Виключіть певний аркуш під час друку книги з кодом VBA

Щоб надрукувати всю книгу, крім однієї конкретної таблиці, вам може допомогти наступний код VBA.

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у вікно модуля.

Код VBA: Виключіть певний аркуш під час друку книги:

Private Sub Printexclude()
'Updateby Extendoffcie
    Dim ws As Worksheet
    Dim strShName As String
    On Error Resume Next
    strShName = Application.InputBox("Enter the sheet name you want to exclude:", _
    "Kutools For Excel", , , , , , 2)
    Application.ScreenUpdating = False
    For Each ws In ThisWorkbook.Worksheets
        If ((ws.Visible = xlSheetVisible) And _
         (ws.Name <> strShName)) Then ws.PrintOut
    Next ws
    Application.ScreenUpdating = True
End Sub

3. А потім натисніть F5 клавішу для запуску цього коду, і з'явиться вікно запиту, щоб нагадати вам про введення імені аркуша, яке потрібно виключити під час друку книги, див.

4. Потім натисніть OK та інші робочі аркуші будуть надруковані відразу, за винятком конкретного аркуша, як вам потрібно.