Du kan ikke skrive ut hvert ark en om gangen ved hjelp av en enkelt Excel -kommando. Du kan imidlertid oppnå dette ved hjelp av en kombinasjon av VBA -kode og en sløyfe. Slik er det:

1. Aktiver fanen Developer:

* Gå til File> Alternativer> Tilpass bånd .

* Merk av i ruten ved siden av utvikler og klikk OK .

2. Sett inn VBA -kode:

* Klikk på utvikleren Tab og velg Visual Basic .

* I prosjektet Vindu, høyreklikk på denne arbeidsboken og velg insert> modul .

* Lim inn følgende kode i modulen:

`` VBA

Sub Printsheets Individual ()

Dim WS som regneark

'Loop gjennom hvert ark i arbeidsboken

For hver WS i denne arbeidsboken. Arbeidshjær

'Skriv ut gjeldende ark

ws.printout kopier:=1, samler:=true

'Vent til utskriften skal være ferdig (valgfritt)

Application.Wait Now + TimeValue ("00:00:05") 'Vent i 5 sekunder

Neste ws

Slutt sub

`` `

3. Kjør makroen:

* Lukk Visual Basic Editor .

* Gå tilbake til utvikleren Tab og klikk makroer .

* Velg printsheets Individual Makro og klikk Kjør .

Forklaring:

* `Sub PrintsheetSindividual ()`: Definerer makronavnet.

* `dim ws som regneark`: Erklærer en variabel for å representere hvert regneark.

* `For hver ws i denne arbeidsboken.Worksheets`: Sløyfer gjennom hvert ark i arbeidsboken.

* `ws.printout kopier:=1, samler:=true`: Skriver ut det nåværende regnearket (ved hjelp av `ws`), med en kopi og samlet sider.

* `Application.Wait Now + TimeValue (" 00:00:05 ")`: Denne valgfrie linjen venter i 5 sekunder etter å ha skrevet ut hvert ark for å sikre at utskriftsprosessen er fullført før du flytter til neste ark. Juster ventetiden etter behov.

* `neste ws`: Avslutter sløyfen og fortsetter til neste ark.

Viktige merknader:

* Koden forutsetter at du har et standard skriveroppsett. Hvis ikke, kan du spesifisere skriveren ved å bruke `WS.Printout Printer:=" YourPrintername "`.

* `vent` Uttalelse kan være nyttig for å forhindre feil hvis utskrift tar en betydelig periode. Juster ventetiden etter behov.

Alternativ:Bruke en loop og `printout` -metode (ingen VBA):

Selv om denne metoden ikke skriver ut hvert ark individuelt, kan du bruke en sløyfe i en celleformel for å utløse utskriftsprosessen:

1. I en celle, skriv inn følgende formel:

`` Excel

=If (rad () <=ark (), "Print Sheet" &Row (), "")

`` `

2. Kopier denne formelen ned til antall ark i arbeidsboken.

3. Bruk følgende trinn for å skrive ut hvert ark ved hjelp av `utskrift` metode:

* Gå til File> Skriv ut .

* I utskriftsområdet rullegardin, velg valg .

* Klikk Skriv ut .

Dette vil utløse utskriftsprosessen for hvert ark når du kopierer formelen ned på kolonnen.

Velg metoden som passer best for dine behov og preferanser.