1. Schakel het tabblad Developer in:

* Ga naar Bestand> Opties> Lint aanpassen .

* Vink het vakje naast ontwikkelaar aan aan en klik op OK .

2. VBA -code invoegen:

* Klik op de ontwikkelaar tabblad en selecteer Visual Basic .

* In het project Venster, klik met de rechtermuisknop op ThisWorkBook en kies insert> module .

* Plak de volgende code in de module:

`` `vba

Sub printsheetsIdidental ()

Dim WS als werkblad

'Loop door elk vel in het werkboek

Voor elke WS in deze werkbook.worksheets

'Druk het huidige blad af

WS.printout Kopieën:=1, collate:=True

'Wacht tot het afdrukken is afgewerkt (optioneel)

Application.Wait Now + TimeValue ("00:00:05") 'Wacht 5 seconden

Volgende WS

Einde sub

`` `

3. Voer de macro uit:

* Sluit de Visual Basic Editor .

* Ga terug naar de ontwikkelaar tabblad en klik op macro's .

* Selecteer de printsheetsIndidental Macro en klik op Uitvoeren .

Verklaring:

* `Sub printsheetsindivalual ()`: Definieert de macro -naam.

* `Dim WS als werkblad ': Verklaart een variabele om elk werkblad weer te geven.

* `voor elke WS in deze werkbook.worksheets`: Loopt door elk blad in de werkmap.

* `Ws.printout Kopieën:=1, collate:=true`: Drukt het huidige werkblad af (met behulp van `ws`), met één kopie en verzamelde pagina's.

* `Application.Wait Now + TimeValue (" 00:00:05 ")`: Deze optionele lijn wacht 5 seconden na het afdrukken van elk blad om ervoor te zorgen dat het afdrukproces voltooid is voordat u naar het volgende blad gaat. Pas de wachttijd indien nodig aan.

* `Volgende WS`: Beëindigt de lus en gaat door naar het volgende blad.

belangrijke opmerkingen:

* De code veronderstelt dat u een standaardprinterinstelling hebt. Als dit niet het geval is, kunt u de printer opgeven met behulp van `ws.printout -printer:=" YourPrinterName "`.

* De `wacht ' Verklaring kan nuttig zijn om fouten te voorkomen als afdrukken een aanzienlijke hoeveelheid tijd nodig hebben. Pas de wachttijd indien nodig aan.

Alternatief:een lus- en `printout' -methode gebruiken (geen VBA):

Hoewel deze methode elk blad niet afzonderlijk afdrukt, kunt u een lus in een celformule gebruiken om het afdrukproces te activeren:

1. Voer in een cel de volgende formule in:

`` `Excel

=If (row () <=sheets (), "print sheet" &row (), "")

`` `

2. Kopieer deze formule naar het aantal vellen in uw werkmap.

3. Gebruik de volgende stappen om elk blad af te drukken met de `printout` methode:

* Ga naar bestand> afdrukken .

* In het printbereik Vervolgeling, selecteer selectie .

* Klik op afdrukken .

Hiermee wordt het afdrukproces voor elk blad geactiveerd bij het kopiëren van de formule in de kolom.

Kies de methode die het beste bij uw behoeften en voorkeuren past.