Hur skriver man ut titlar upprepade gånger i flera ark?

Att skriva ut rubrikraden överst på varje sida är vanlig praxis, men har du någonsin försökt skriva ut rubrikrader upprepade gånger i flera ark? I den här artikeln har jag två enkla sätt att hantera denna fråga i Excel.

Skriv ut titlar upprepade gånger i flera kalkylblad med VBA

Skriv ut titlar upprepade gånger i flera kalkylblad med Kutools för Excel

Skriv ut titlar upprepade gånger i flera kalkylblad med VBA

Det finns ingen inbyggd funktion för att flera gånger skriva ut titlar i flera ark, men du kan använda ett makro för att hantera det.

1. Aktivera det första arket i din arbetsbok, klicka på ankaret längst ner till höger på Utskriftsformat grupp på Sidan Layout flik. Se skärmdump:

2. I Utskriftsformat dialog, klicka Sheet välj titelraden du vill skriva ut från upprepade gånger Rader att repetera överst, och klicka OK. Se skärmdump:

3. Tryck Alt + F11 för att aktivera Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulerna att skapa en ny Modulerna.

4. Klistra sedan in koden under det tomma skriptet och tryck på F5 för att köra koden.

VBA: Skriv upp titlar upprepade gånger i flera ark

Sub SetAttributes()
'UpdatebyExtendoffice20170810
    Dim xSheet As Worksheet
    Dim xSheetOne As Worksheet
    Dim xSheets As Sheets
    Set xSheets = ActiveWorkbook.Worksheets
    Set xSheetOne = xSheets(1)
    For Each xSheet In xSheets
        xSheet.PageSetup.PrintTitleRows = xSheetOne.PageSetup.PrintTitleRows
    Next xSheet
End 

Efter att ha kört VBA-koden kommer den översta raden i varje ark att upprepas överst på varje sida under utskrift.

Skriv ut titlar upprepade gånger i flera kalkylblad med Kutools för Excel

Om du har installerat Kutools för Excelkan du tillämpa dess Kopiera sidinställningar för att snabbt kopiera alla eller specifika sidinställningar från ett ark till andra ark i en arbetsbok.

När du har installerat Kutools för Excel, gör så här:（Gratis nedladdning Kutools för Excel nu!)

1. Välj ett ark, till exempel, välj Ark 1 och klicka på ankaret längst ned till höger på Utskriftsformat grupp på Sidan Layout flik. Se skärmdump:

2. I Utskriftsformat dialog, klicka Sheet och välj de titlar som du vill skriva ut upprepade gånger från Rader att repetera överst. Se skärmdump:

3. klick OK, Klicka sedan Kutools Plus > Utskrift > Kopiera sidinställningar. Se skärmdump ：

4. I Kopiera sidinställningar i dialogrutan, kolla arkenamnen du vill använda samma sidinställning i Kopia till lista och kontrollera sedan Rader att repetera överst i Montering lista. Se skärmdump:

5. klick Ok. Nu kommer de översta raderna att skrivas ut upprepade gånger på flera ark.

Demo: Skriv ut titlar upprepade gånger i flera kalkylblad med Kutools för Excel