Hvordan du skriver ut sider med romertall sidetall?

There er ingen innebygd funksjon som lar deg skrive ut sidene med romertall som sidetall, men kan du lage en makro som skal gjøre utslaget. Vennligst gjøre med følgende:
1. Åpne regnearket som du vil skrive ut.
To. Hold nede ALT + F11-tastene, og det åpner Microsoft Visual Basic for Applications vinduet.
3. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Skriv ut sider med romertall som sidetall
Sub PrintRoman () 'Update 20140924Dim xCount Som IntegerDim xIndex As IntegerxCount = ExecuteExcel4Macro ("GET.DOCUMENT (50 ) ") For xIndex = 1 Til xCount Application.ActiveSheet.PageSetup.CenterFooter = Application.Roman (xIndex) Application.ActiveSheet.PrintOut fra: = xIndex, Til: = xIndexNextApplication.ActiveSheet.PageSetup.CenterFooter =" "End Sub4. Deretter trykker F5 for å kjøre koden, og alle sidene i det aktive regnearket vil bli skrevet med romertall sidetall. Anmeldelser



Previous:
Next Page: