Hur skriver man ut sidor med sidnummer?

Vi kan enkelt infoga det romerska siffrans sidnummer i Word, men Excel stöder inte den här funktionen för användare. Ibland måste vi skriva ut kalkylbladssidorna med romerska sidnummer, hur kan du lösa det här jobbet i Excel?

Skriv ut sidor med romerska sidnummer med VBA-kod

Skriv ut sidor med romerska sidnummer med VBA-kod

Det finns ingen inbyggd funktion som låter dig skriva ut sidorna med romerska sidnummer, men du kan skapa ett makro som gör tricket. Gör så här:

1. Öppna kalkylbladet som du vill skriva ut.

2. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic for Applications-fönstret.

3. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.

VBA-kod: Skriv ut sidor med sidnummer med romerska siffror

Sub PrintRoman()
'Update 20140924
Dim xCount As Integer
Dim xIndex As Integer
xCount = ExecuteExcel4Macro("GET.DOCUMENT(50)")
For xIndex = 1 To xCount
    Application.ActiveSheet.PageSetup.CenterFooter = Application.Roman(xIndex)
    Application.ActiveSheet.PrintOut from:=xIndex, To:=xIndex
Next
Application.ActiveSheet.PageSetup.CenterFooter = ""
End Sub

4. Tryck sedan på F5 för att utföra koden, och alla sidor i det aktiva kalkylbladet kommer att skrivas ut med romerska sidnummer.

Relaterade artiklar:

Hur skriver jag ut första sidan på varje ark snabbt?

Hur skriver jag snabbt ut nuvarande sida i Excel?

Hur skriver man snabbt ut kommentarer i Excel?

Hur skriver jag ut data mitt på sidan?