Jak wydrukować wszystkie arkusze z wyjątkiem jednego konkretnego arkusza w programie Excel?
W pracy w programie Excel drukowanie arkuszy może być dla Ciebie codzienną pracą. Jednak czy kiedykolwiek próbowałeś wydrukować wszystkie arkusze oprócz jednego konkretnego arkusza? Na przykład skoroszyt, w którym chcesz wydrukować wszystkie arkusze oprócz arkusza o nazwie „Razem”, jak szybko sobie z tym poradzić?
Wydrukuj cały arkusz oprócz jednego z VBA
Wydrukuj określone strony, których potrzebujesz, za pomocą Kutools for Excel
Wydrukuj cały arkusz oprócz jednego z VBA
Oto kod VBA, który może drukować wszystkie arkusze z wyjątkiem jednego określonego arkusza.
1. Aktywuj skoroszyt, z którego chcesz wydrukować arkusze, i naciśnij Alt + F11 klucze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. kliknij wstawka > modułe, wklej poniższy kod do skryptu modułu.
VBA: Drukuj arkusz z wyjątkiem jednego
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
Uwaga: W kodzie Kwota projektu: in Jeśli xWs.Name <> "Total" Then i MsgBox „Arkusz sumy nie został wydrukowany” to nazwa arkusza, którego nie chcesz drukować, a A1: B15 in .PrintArea = "A1: B15" to zakres, w jakim chcesz wydrukować każdy arkusz. Możesz je zmieniać według potrzeb.
3. naciśnij F5 aby uruchomić kod, a następnie wyskakuje okno dialogowe przypominające, że określony arkusz nie został wydrukowany. Zobacz zrzut ekranu:
4. kliknij OK aby zamknąć okno dialogowe.
Wydrukuj określone strony, których potrzebujesz, za pomocą Kutools for Excel
Jeśli chcesz tylko wydrukować tylko strony parzyste lub nieparzyste lub określone strony arkusza, możesz złożyć wniosek Kutools dla programu Excel'S Drukuj określone strony narzędzie, które może szybko wyświadczyć ci przysługę.
Kutools dla programu Excel, ponad 300 przydatne funkcje, ułatwiają pracę. |
Po zainstalowaniu Kutools dla programu Excel, wykonaj poniższe czynności :(Bezpłatne pobieranie Kutools dla programu Excel teraz!)
1. Aktywuj arkusz, w którym chcesz wydrukować określone strony, kliknij Kutools Plus > Druk > Drukuj określone strony. Zobacz zrzut ekranu:
2. Następnie w Drukuj określone strony sprawdź opcje w zależności od potrzeb drukowania. Zobacz zrzut ekranu:
3. kliknij wydrukować strony.
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!