Jak tisknout všechny listy kromě jednoho konkrétního listu v aplikaci Excel?
Při práci v Excelu může být pro vás tisk listů běžnou každodenní prací. Zkusili jste však někdy vytisknout všechny listy kromě jednoho konkrétního? Například zde sešit, který chcete vytisknout všechny listy kromě listu s názvem „Celkem“, jak to můžete rychle zvládnout?
Vytiskněte všechny listy kromě jednoho pomocí VBA
Vytiskněte určité stránky, které potřebujete, pomocí programu Kutools pro Excel
Vytiskněte všechny listy kromě jednoho pomocí VBA
Zde je kód VBA, který dokáže tisknout všechny listy kromě jednoho konkrétního listu.
1. Aktivujte sešit, který chcete vytisknout, a stiskněte Alt + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2. cvaknutí Vložit > module, vložte níže uvedený kód do skriptu modulu.
VBA: Tiskněte list kromě jednoho
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
Poznámka: V kódu je Celková cena in Pokud xWs.Name <> "Celkem", pak a MsgBox "List celkem nebyl vytištěn" je název listu, který nechcete tisknout, a A1: B15 in .PrintArea = "A1: B15" je rozsah, který chcete vytisknout z každého listu. Můžete je změnit podle potřeby.
3. lis F5 pro spuštění kódu a poté se zobrazí dialogové okno, které vám připomene, že konkrétní list nebyl vytištěn. Viz snímek obrazovky:
4. cvaknutí OK zavřete dialogové okno.
Vytiskněte určité stránky, které potřebujete, pomocí programu Kutools pro Excel
Pokud chcete tisknout pouze sudé nebo liché stránky nebo konkrétní stránky listu, můžete použít Kutools pro ExcelJe Tisk specifikovaných stránek nástroj, který vám rychle udělá laskavost.
| Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. |
Po instalaci Kutools pro Excel, prosím, postupujte takto :(Stažení zdarma Kutools pro Excel hned teď!)
1. Aktivujte list, na který chcete tisknout určité stránky, klepněte na Kutools Plus > Tisk > Tisk specifikovaných stránek. Viz snímek obrazovky:
2. Pak v Tisk specifikovaných stránek V dialogovém okně zkontrolujte možnosti podle potřeby tisku. Viz snímek obrazovky:
3. cvaknutí Tisk pro tisk stránek.
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!
