Du kan ikke direkte udskrive hvert ark ad gangen ved hjælp af en enkelt Excel -kommando. Du kan dog opnå dette ved hjælp af en kombination af VBA -kode og en løkke. Her er hvordan:

1. Aktivér fanen Udvikler:

* Gå til fil> Indstillinger> Tilpas bånd .

* Marker afkrydsningsfeltet ved siden af ​​ udvikler og klik på OK .

2. Indsæt VBA -kode:

* Klik på udvikler Tab og vælg Visual Basic .

* I -projektet Vindue, højreklik på thisworkbook og vælg indsæt> modul .

* Indsæt følgende kode i modulet:

`` VBA

Sub Printsheetsindividuelt ()

Dim Ws som regneark

'Loop gennem hvert ark i arbejdsbogen

For hver WS i denne workbook.worksheets

'Udskriv det aktuelle ark

ws.printout -kopier:=1, collect:=sandt

'Vent på, at trykket er afsluttet (valgfrit)

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

Næste WS

Slut sub

`` `

3. Kør makroen:

* Luk Visual Basic Editor .

* Gå tilbage til udvikler Tab og klik på makroer .

* Vælg printsheetsindividuelt makro og klik kør .

Forklaring:

* `Sub Printsheetsindividuelt ()`: Definerer makro -navnet.

* `Dim Ws som regneark ': Erklærer en variabel for at repræsentere hvert regneark.

* `For hver WS i denne workbook.worksheets`: Loops gennem hvert ark i arbejdsbogen.

* `ws.printout -kopier:=1, Collect:=True`: Udskriver det aktuelle regneark (ved hjælp af `ws`) med en kopi og samlede sider.

* `applikation.wait nu + TimeValue (" 00:00:05 ")`: Denne valgfri linje venter i 5 sekunder efter udskrivning af hvert ark for at sikre, at udskrivningsprocessen er komplet, før du flytter til det næste ark. Juster ventetiden efter behov.

* `næste WS ': Afslutter løkken og fortsætter til det næste ark.

Vigtige noter:

* Koden antager, at du har en standardprinteropsætning. Hvis ikke, kan du specificere printeren ved hjælp af `ws.printout -printer:=" YourPRINTERNAME ".

* `vent` Erklæring kan være nyttigt til at forhindre fejl, hvis udskrivning tager en betydelig mængde tid. Juster ventetiden efter behov.

alternativ:Brug af en loop og `udskrivning 'metode (ingen VBA):

Selvom denne metode ikke udskriver hvert ark individuelt, kan du bruge en løkke i en celleformel til at udløse udskrivningsprocessen:

1. I en celle skal du indtaste følgende formel:

`` `Excel

=If (række () <=ark (), "print ark" &række (), "")

`` `

2. Kopier denne formel ned til antallet af ark i din arbejdsbog.

3. Brug følgende trin til at udskrive hvert ark ved hjælp af `udskrivning` metode:

* Gå til fil> udskriv .

* I printområdet Drop-down, vælg valg .

* Klik på udskriv .

Dette vil udløse udskrivningsprocessen for hvert ark, når du kopierer formlen ned i kolonnen.

Vælg den metode, der bedst passer til dine behov og præferencer.