Wendy desidera includere i numeri di pagina nell’intestazione della stampa del foglio di lavoro, ma con una svolta: Pagina 21A a pagina 1, Pagina 21B a pagina 2, Pagina 21C a pagina 3, ecc. Si chiede come fare per creare una tale numerazione di pagina schema.

Ci sono alcuni modi in cui puoi affrontare questo problema, tutti che implicano l’uso di macro. Se in realtà si desidera stampare tutti i fogli di lavoro nella cartella di lavoro corrente e nessuno di questi fogli di lavoro è lungo una singola pagina (quando stampata), la seguente macro imposterà la sezione centrale dell’intestazione come richiesto:

Sub PageNums1()

Dim sheet As Worksheet     Dim J As Integer

J = 1     On Error Resume Next     For Each sheet In Worksheets         Sheets(J).PageSetup.CenterHeader = "Page 21" & Chr(64 + J)

J = J + 1     Next End Sub

Notare che la macro in realtà non stampa nulla; tutto ciò che fa è cambiare le informazioni di intestazione. Se davvero vuoi solo stampare il foglio di lavoro corrente e quel foglio di lavoro richiederà più pagine sulla stampa, allora dovrebbe funzionare bene quanto segue:

Sub PageNums2()

Dim X As Integer     Dim Y As Integer     Dim Z As Integer

Z = 1     For X = 1 To ActiveSheet.HPageBreaks.Count + 1         For Y = 1 To ActiveSheet.VPageBreaks.Count + 1             ActiveSheet.PageSetup.CenterHeader = _               "Page 21" & Chr$(64 + Z)

Worksheets.PrintOut Z, Z             Z = Z + 1         Next Y     Next X End Sub

Questa macro calcola le pagine in base alla posizione delle interruzioni di pagina orizzontali (HPageBreaks) e verticali (VPageBreaks) sulla stampa.

Puoi anche provare a lavorare con la raccolta Pages, in questo modo:

Sub PageNums3()

Dim J As Integer

For J = 1 To ActiveSheet.PageSetup.Pages.Count         ActiveSheet.PageSetup.CenterHeader = "Page 21" & Chr(64 + J)

Worksheets.PrintOut J, J     Next J End Sub

Si noti che, indipendentemente dall’approccio selezionato, si verificheranno problemi se la stampa richiede più di 26 pagine.

_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 (12548) si applica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 e Excel in Office 365.