Як надрукувати всі аркуші, крім одного конкретного аркуша в Excel?
У роботі з Excel друк аркушів може бути загальною щоденною роботою для вас. Однак чи пробували ви коли-небудь друкувати всі аркуші, крім одного конкретного аркуша? Наприклад, тут є робоча книга, ви хочете надрукувати всі аркуші, крім аркуша з назвою “Всього”, як ви можете швидко це обробити?
Роздрукуйте весь аркуш, крім одного, за допомогою VBA
Роздрукуйте певні сторінки, які вам потрібні, за допомогою Kutools для Excel
Роздрукуйте весь аркуш, крім одного, за допомогою VBA
Ось код VBA, який може друкувати всі аркуші, крім одного конкретного аркуша.
1. Активуйте книгу, в якій ви хочете надрукувати аркуші, і натисніть Alt + F11 клавіші, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. клацання Insert > модуль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 <> "Всього" Тоді та MsgBox "Загальний аркуш не надруковано" - назва аркуша, який ви не хочете друкувати, та A1: B15 in .PrintArea = "A1: B15" - діапазон, який потрібно надрукувати на кожному аркуші. Ви можете змінювати їх, як вам потрібно.
3. прес F5 клавішу для запуску коду, а потім вискакує діалогове вікно, щоб нагадати, що конкретний аркуш не надруковано. Дивіться знімок екрана:
4. клацання OK щоб закрити діалогове вікно.
Роздрукуйте певні сторінки, які вам потрібні, за допомогою Kutools для Excel
Якщо ви просто хочете надрукувати лише парні або непарні сторінки, або окремі сторінки аркуша, ви можете подати заявку Kutools для ExcelАвтора Друк вказаних сторінок утиліта, яка може швидко зробити вам послугу.
Kutools для Excel, з більш ніж 300 зручні функції, полегшує вам роботу. |
після установки Kutools для Excel, виконайте наведені нижче дії:(Безкоштовно завантажте Kutools для Excel зараз!)
1. Активуйте аркуш, на якому ви хочете надрукувати певні сторінки, натисніть Kutools Plus > друк > Друк вказаних сторінок. Дивіться знімок екрана:
2. Потім у Друк вказаних сторінок діалогове вікно, перевірте параметри залежно від потреб друку. Дивіться знімок екрана:
3. клацання друк для друку сторінок.
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!