Modifica Formato numero di pagina

Quando si stampa un foglio di lavoro, è possibile avere Excel includono una varietà di oggetti nell'intestazione o piè di pagina della stampa. Una delle cose che si possono includere è il numero di pagina della pagina in fase di stampa. Questo numero di pagina è abbastanza banale, è il valore araba della pagina in corso di stampa, come in 1, 2, 3, ecc

Alcune persone possono a lungo per un modo per stampare pagina delle lettere (A, B, C) al posto dei numeri di pagina (1, 2, 3). Non c'è modo intrinseco per fare questo in Excel. È possibile, tuttavia, sviluppare una macro che capire la lettera che dovrebbe essere associato ad una pagina, e quindi utilizzare tale lettera nel piè di pagina. La seguente macro fa proprio questo:

LetterPageNums Sub ()
Dim Sarr (27 * 26) As String
IPages Dim As Integer
Dim J As Integer, K As Integer

'Riempi pagina lettera di array
'"A", "B", "C", ..., "AA", "AB", etc.
Per J = 0 Per 26
Per K = 1 a 26
Se J> 0 Then
Sarr ((J * 26) + K) = Chr (J + 64) e Chr (K + 64)
Altro
Sarr (K) = Chr (K + 64)
End If
Successivo K
Successivo J

'Get conteggio delle pagine in foglio attivo
iPages = ExecuteExcel4Macro ("GET.DOCUMENT (50)")

'Foglio di lavoro di stampa, pagina per pagina
Con ActiveSheet
Per J = 1 Per iPages
'Set lettera pagina
.PageSetup.CenterFooter = Sarr (J)
'Stampa pagina (J)
.PrintOut Da: = J, A: = J
Successivo J
End With
End Sub

In primo luogo, i dati macro fuori l'equivalente lettera di numeri pagine e li mette in un array. In questo caso, fino a 702 caratteri di pagina vengono calcolati, che dovrebbe essere più che sufficiente per ogni lavoro di stampa. Le lettere sono da A a Z, quindi AA attraverso AZ, BA attraverso BZ, e tutta la strada fino a ZA attraverso ZZ.

Poi, iPages è impostato per il numero di pagine del foglio di lavoro. Infine, ogni pagina viene stampata individualmente, con la lettera di pagina che è inserito nel footer centro del foglio di lavoro. Se si desidera che la lettera di pagina in un luogo diverso, utilizzare .LeftFooter o .RightFooter invece che la proprietà .CenterFooter. (È possibile utilizzare anche .LeftHeader, .CenterHeader, e .RightHeader, se lo si desidera.)

ExcelTips è la vostra fonte per la formazione Microsoft Excel conveniente. Questo suggerimento (2126) si applica a Microsoft Excel 97, 2000, 2002, e 2003. È possibile trovare una versione di questo suggerimento per l'interfaccia ribbon di Excel (Excel 2007 e versioni successive) qui: Cambiamento Formato numero di pagina.