Jak vyloučit konkrétní list při tisku sešitu?
Pokud máte sešit, který obsahuje více listů, které je třeba vytisknout, ale vylučujete konkrétní, existuje nějaká rychlá a snadná metoda pro tisk všech listů kromě jednoho v aplikaci Excel?
Při tisku sešitu s kódem VBA vyloučte konkrétní list
Při tisku sešitu s kódem VBA vyloučte konkrétní list
Chcete-li vytisknout celý sešit kromě jednoho konkrétního listu, může vám pomoci následující kód VBA.
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modula vložte následující kód do okna modulu.
Kód VBA: Vyloučit konkrétní list při tisku sešitu:
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. A pak stiskněte F5 klíč ke spuštění tohoto kódu a zobrazí se okno s výzvou, které vám připomene zadání názvu listu, který chcete při tisku sešitu vyloučit, viz screenshot:
4. Pak klikněte na tlačítko OK tlačítko a další pracovní listy se vytisknou najednou, vyloučte konkrétní list podle potřeby.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!