Как да отпечатам всички листове с изключение на един конкретен лист в Excel?
При работа с Excel отпечатването на листове може да бъде общата ежедневна работа за вас. Опитвали ли сте обаче да отпечатате всички листове, освен един конкретен лист? Например, работна книга тук, искате да отпечатате всички листове, но листа с име „Общо“, как можете бързо да се справите с него?
Отпечатайте целия лист с изключение на един с VBA
Отпечатайте определени страници, от които се нуждаете, с Kutools за 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 <> "Общо" Тогава намлява MsgBox "Общото количество на листа не е отпечатано" е името на листа, който не искате да отпечатате, и A1: B15 in .PrintArea = "A1:B15" е диапазонът, който искате да отпечатате за всеки лист. Можете да ги промените според нуждите си.
3. Натиснете F5 за да стартирате кода, след което се появява диалогов прозорец, за да ви напомни, че конкретният лист не е отпечатан. Вижте екранна снимка:
4. кликване OK за да затворите диалоговия прозорец.
Отпечатайте определени страници, от които се нуждаете, с Kutools за Excel
Ако просто искате да отпечатате само четни или нечетни страници или конкретни страници от лист, можете да кандидатствате Kutools за ExcelЕ Печат на определени страници помощна програма, която може бързо да ви направи услуга.
Kutools за Excel, с повече от 300 удобни функции, прави работата ви по-лесна. |
След инсталиране Kutools за Excel, моля, направете следното:(Безплатно изтегляне Kutools за Excel сега!)
1. Активирайте листа, в който искате да отпечатате определени страници, щракнете Kutools плюс > Печат > Печат на определени страници. Вижте екранна снимка:
2. След това в Печат на определени страници диалогов прозорец, проверете опциите въз основа на вашите нужди за печат. Вижте екранна снимка:
3. кликване Изпринти за отпечатване на страниците.
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!