Du kan inte direkt skriva ut varje ark åt gången med ett enda Excel -kommando. Du kan dock uppnå detta med hjälp av en kombination av VBA -kod och en slinga. Så här::
1. Aktivera fliken Utvecklare:
* Gå till fil> Alternativ> Anpassa band .
* Kontrollera rutan bredvid utvecklaren och klicka på ok .
2. Infoga VBA -kod:
* Klicka på -utvecklaren flik och välj Visual Basic .
* I -projektet fönster, högerklicka på thisworkbook och välj insert> -modul .
* Klistra in följande kod i modulen:
`` VBA
Sub PrintSheetsInsIDIVAL ()
Dim WS som kalkylblad
'Loop genom varje ark i arbetsboken
För varje WS i denna Workbook.work -Sheets
'Skriv ut det aktuella arket
Ws.printout -kopior:=1, samlas:=sant
'Vänta på att utskriften är klar (valfritt)
Application.Wait Now + TimeValue ("00:00:05") 'Vänta i 5 sekunder
Nästa WS
Slutsub
`` `
3. Kör makro:
* Stäng Visual Basic Editor .
* Gå tillbaka till -utvecklaren flik och klicka på makron .
* Välj PrintSheetsIndividivalt makro och klicka på run .
Förklaring:
* `Sub PrintSheetsInsIDIVIDA ()`: Definierar makronamnet.
* `dim ws som kalkylblad`: Förklarar en variabel för att representera varje kalkylblad.
* `för varje WS i denna Workbook.WorkSheets`: Loops genom varje ark i arbetsboken.
* `Ws.Printout -kopior:=1, Collate:=true`: Skriver ut det aktuella kalkylbladet (med "WS"), med en kopia och samlade sidor.
* `Application.Wait Now + TimeValue (" 00:00:05 ")`: Den här valfria linjen väntar i 5 sekunder efter att ha skrivit ut varje ark för att säkerställa att utskriftsprocessen är klar innan du flyttar till nästa ark. Justera väntetiden efter behov.
* `Nästa ws`: Slutar slingan och fortsätter till nästa ark.
Viktiga anteckningar:
* Koden antar att du har en standardskrivarinställning. Om inte, kan du ange skrivaren med `WS.PRINTOUT -skrivaren:=" YourPrintername "`.
* `vänta` Uttalande kan vara användbart för att förhindra fel om utskrift tar en betydande tid. Justera väntetiden efter behov.
Alternativ:Använda en Loop och `Printout` -metoden (ingen VBA):
Även om den här metoden inte skriver ut varje ark individuellt, kan du använda en slinga i en cellformel för att utlösa utskriftsprocessen:
1. Ange följande formel i en cell:
`` `Excel
=If (rad () <=ark (), "print ark" &rad (), "")
`` `
2. Kopiera denna formel ner till antalet ark i din arbetsbok.
3. Använd följande steg för att skriva ut varje ark med `Printout` metod:
* Gå till fil> tryck .
* I tryckområdet urrullning, välj val .
* Klicka på Skriv ut .
Detta kommer att utlösa utskriftsprocessen för varje ark när du kopierar formeln ner i kolumnen.
Välj den metod som bäst passar dina behov och preferenser.
