Quando si stampa un foglio di lavoro, è possibile fare in modo che Excel includa una varietà di elementi nell’intestazione o nel piè di pagina della stampa. Una delle cose che puoi includere è il numero di pagina della pagina da stampare. Questo numero di pagina è abbastanza banale: è il valore arabo della pagina che viene stampata, come in 1, 2, 3, ecc.

Alcune persone potrebbero desiderare un modo per stampare lettere di pagina (A, B, C) invece dei numeri di pagina (1, 2, 3). Non esiste un modo intrinseco per farlo in Excel. Puoi, tuttavia, sviluppare una macro che individuerà la lettera che dovrebbe essere associata a una pagina e quindi utilizzare quella lettera nel piè di pagina. La seguente macro fa proprio questo:

Sub LetterPageNums()

Dim sArr(27 * 26) As String     Dim iPages As Integer     Dim J As Integer, K As Integer

' Fill page letter array     ' "A", "B", "C", ...,"AA", "AB", etc.

For J = 0 To 26         For K = 1 To 26             If J > 0 Then                 sArr((J * 26) + K) = Chr(J + 64) & Chr(K + 64)

Else                 sArr(K) = Chr(K + 64)

End If         Next K     Next J

' Get count of pages in active sheet     iPages = ExecuteExcel4Macro("Get.Document(50)")



' Print worksheet, page by page     With ActiveSheet         For J = 1 To iPages             ' Set page letter             .PageSetup.CenterFooter = sArr(J)

' Print page(J)

.PrintOut From:=J, To:=J         Next J     End With End Sub

In primo luogo, la macro calcola l’equivalente in lettere dei numeri di pagina e li inserisce in un array. In questo caso, vengono calcolate fino a 702 lettere di pagina, che dovrebbero essere più che sufficienti per qualsiasi lavoro di stampa. Le lettere vanno dalla A alla Z, quindi dalla AA alla AZ, dalla BA alla BZ e fino alla ZA fino alla ZZ.

Quindi, iPages è impostato sul numero di pagine nel foglio di lavoro. Infine, ogni pagina viene stampata individualmente, con la lettera della pagina posizionata nel piè di pagina centrale del foglio di lavoro. Se desideri che la lettera della pagina si trovi in ​​una posizione diversa, utilizza .LeftFooter o .RightFooter invece della proprietà .CenterFooter. (Puoi anche usare .LeftHeader, .CenterHeader e .RightHeader, se lo desideri.)

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (2126) si applica a Microsoft Excel 97, 2000, 2002 e 2003. Puoi trovare una versione di questo suggerimento per l’interfaccia a nastro di Excel (Excel 2007 e versioni successive) qui:

Modifica del formato del numero di pagina.