Note: The other languages of the website are Google-translated. Back to English

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 Exceldobry pomysł 3


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

doc wydrukuj wszystko oprócz 1

Uwaga: W kodzie Suma 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:
doc wydrukuj wszystko oprócz 2

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ę.

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:
doc wydrukuj wszystko oprócz 3

2. Następnie w Drukuj określone strony sprawdź opcje w zależności od potrzeb drukowania. Zobacz zrzut ekranu:
doc wydrukuj wszystko oprócz 4

3. kliknij wydrukować strony.

Wskazówka. Jeśli chcesz skorzystać z bezpłatnej wersji próbnej funkcji Drukuj określone strony, przejdź do bezpłatnego pobrania Kutools for Excel najpierw, a następnie przejdź do wykonania operacji zgodnie z powyższymi krokami.


Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

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!
officetab dół
Sortuj komentarze według
Komentarze (0)
Brak ocen. Oceń jako pierwszy!
Nie ma tu jeszcze żadnych komentarzy

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL