Ako vytlačíte všetky listy v zošite Excel po jednom?

Každý hárok nemôžete priamo vytlačiť jeden po druhom pomocou jediného príkazu Excel. Môžete to však dosiahnuť pomocou kombinácie kódu VBA a slučky. Takto:

1. Povoľte kartu vývojára:

* Prejdite na možnosti súboru > Prispôsobte stuhu .

* Začiarknite políčko vedľa vývojára a kliknite na ok .

2. Vložte kód VBA:

* Kliknite na vývojára karta a vyberte Visual Basic .

* V projekte Okno, kliknite pravým tlačidlom myši na thorkbook a vyberte Modul vložiť> .

* Vložte nasledujúci kód do modulu:

`` `VBA

Subtiestesetsindividuálne ()

Dim WS ako pracovný hárok

„Služba cez každý list v zošite

Pre každú WS v tejtoworkbook.worksheets

„Vytlačte aktuálny list

ws.prinTout kópie:=1, colate:=true

„Počkajte, kým tlač dokončí (voliteľné)

Application.Wait Now + TimeValue ("00:00:05") 'Počkajte 5 sekúnd

Ďalší WS

Koncový

`` `

3. Spustite makro:

* Zatvorte editor Visual Basic .

* Vráťte sa k vývojárovi karta a kliknite na makry .

* Vyberte tlače makro a kliknite na spustiť .

Vysvetlenie:

* `sub printsheetsindividualy ()`: Definuje názov makra.

* `Dim ws ako pracovný hárok: Vyhlasuje premennú, ktorá predstavuje každý pracovný hárok.

* `Pre každú WS v tejtoworkbook.worksheets`: Previnutý cez každý list v zošite.

* `Ws.prinTout Copies:=1, Collate:=True`: Vytlačí aktuálny pracovný hárok (pomocou `WS`), s jednou kópiou a zhromaždenými stránkami.

* `Application.Wait Now + TimeValue (" 00:00:05 ")`: Táto voliteľná čiara čaká 5 sekúnd po vytlačení každého hárku, aby sa zabezpečilo, že proces tlače je dokončený pred presunom na ďalší hárok. Podľa potreby upravte čas čakania.

* `Next ws`: Končí slučku a pokračuje v ďalšom liste.

Dôležité poznámky:

* Kód predpokladá, že máte predvolené nastavenie tlačiarne. Ak nie, tlačiareň môžete zadať pomocou tlačiarne `ws.prinTout:=" YourPrinterName "`.

* `wait` Vyhlásenie môže byť užitočné na zabránenie chýb, ak tlač vyžaduje značné množstvo času. Podľa potreby upravte čas čakania.

Alternatíva:Použitie metódy slučky a `výtlačku (no vBA):

Aj keď táto metóda netlačí každý hárok individuálne, môžete použiť slučku vo vzorci bunky na spustenie procesu tlače:

1. V bunke zadajte nasledujúci vzorec:

`` `Excel

=If (row () <=Sheets (), "Print Sheet" &row (), "")

`` `

2. Skopírujte tento vzorec až do počtu listov vo vašom zošite.

3. Pomocou nasledujúcich krokov vytlačte každý list pomocou `výtlačku` spôsob:

* Prejdite do súboru tlačiť .

* V rozsahu tlače rozbaľte, vyberte výber .

* Kliknite na Print .

Tým sa pri kopírovaní vzorca po stĺpci spustí proces tlače pre každý list.

Vyberte metódu, ktorá najlepšie vyhovuje vašim potrebám a preferenciám.

• Predchádzajúca strana: Môžu byť ďalšie pracovné hárky vytvorené zo zošita v programe Excel, ktorý predvolil tri pracovné hárky? 
• Ďalšia strana: Ako sa volá príkaz Microsoft Excel na zobrazenie textu na dvoch riadkoch v bunke?