Se hai un foglio di lavoro di grandi dimensioni, potresti stamparlo in “parti”

e variare automaticamente le informazioni contenute nell’intestazione o nel piè di pagina di ciascuna parte. Non esiste un modo intrinseco per farlo in Excel; l’approccio migliore è una macro per fare quanto segue:

  1. Imposta l’area di stampa in base a un intervallo denominato.

  2. Imposta l’intestazione o il piè di pagina in base a un altro intervallo denominato.

  3. Stampa l’area di stampa.

  4. Ripetere i passaggi da 1 a 3 per ciascuna area di stampa desiderata.

Si noti che questi passaggi richiedono l’utilizzo di intervalli denominati. È possibile avere un intervallo denominato per ogni parte del foglio di lavoro che si desidera stampare e un intervallo denominato (che sarebbe una singola cella) che rappresenta le informazioni di intestazione o piè di pagina desiderate per ciascuna area di stampa. La seguente macro implementerà i passaggi precedenti:

Sub PrintRegions()

Dim x As Integer

'Change the dimension of the arrays to equal the number '   of printing areas you have     Dim Region(4) As String     Dim Head(4) As String

'Fill this array with the names of the ranges to be printed     Region(1) = "North"

Region(2) = "South"

Region(3) = "East"

Region(4) = "West"



'Fill this array with the names of the ranges to be in the header     Head(1) = "NorthHead"

Head(2) = "SouthHead"

Head(3) = "EastHead"

Head(4) = "WestHead"



For x = 1 To UBound(Region)

ActiveSheet.PageSetup.PrintArea = Range(Region(x)).Address          ActiveSheet.PageSetup.LeftHeader = Range(Head(x)).Value          ActiveWindow.SelectedSheets.PrintOut Copies:=1     Next End Sub

Questo esempio stampa solo quattro aree di un foglio di lavoro. Queste aree sono denominate intervalli: Nord, Sud, Est e Ovest. Allo stesso modo, gli intervalli denominati, che in realtà sono celle singole, utilizzati per la parte sinistra delle intestazioni sono NorthHead, SouthHead, EastHead e WestHead.

_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 (10848) si applica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 ed Excel in Office 365. Puoi trovare una versione di questo suggerimento per l’interfaccia di menu precedente di Excel qui:

Dynamic Headers and Footers.