Quando crei un foglio di lavoro che alla fine verrà stampato, potresti voler utilizzare un piè di pagina diverso nella prima pagina del documento rispetto a quello che fai nelle pagine successive. Non è possibile eseguire questa operazione direttamente in Excel.

Tuttavia, ci sono un paio di soluzioni alternative che potresti usare.

Prima di tutto, prova a utilizzare il componente aggiuntivo Report Manager per Excel. Questo componente aggiuntivo consente di definire diverse visualizzazioni e selezionare l’ordine in cui tali visualizzazioni vengono stampate. Ogni visualizzazione può anche avere intestazioni e piè di pagina univoci, il che significa che è possibile impostare una visualizzazione della prima pagina, con il piè di pagina desiderato, e una visualizzazione delle pagine successive con intestazioni e piè di pagina propri. Dovresti quindi stampare il rapporto utilizzando Report Manager, ottenendo l’output desiderato.

Si noti che il componente aggiuntivo Report Manager è stato distribuito l’ultima volta con Excel 2002. Se si utilizza Excel 2003, è comunque possibile utilizzare Report Manager. Questo articolo della Knowledge Base spiega come utilizzarlo:

http://support.microsoft.com/kb/873209

Un’altra soluzione alternativa è utilizzare una macro per eseguire la stampa. La seguente macro imposterà i piè di pagina per un foglio di lavoro a seconda di cosa si stampa. In realtà, imposta i piè di pagina per la prima pagina e quindi stampa quella pagina. Quindi imposta i piè di pagina per le altre pagine e le stampa.

Sub PrintSheet()

Dim sP1Left As String     Dim sP1Center As String     Dim sP1Right As String     Dim sP2Left As String     Dim sP2Center As String     Dim sP2Right As String

' Define first-page footers     sP1Left = "First page left"

sP1Center = "First page center"

sP1Right = "First page right"



' Define second-page footers     sP2Left = "Second page left"

sP2Center = "Second page center"

sP2Right = "Second page right"



' Set up and print first page     With ActiveSheet.PageSetup         .LeftFooter = sP1Left         .CenterFooter = sP1Center         .RightFooter = sP1Right     End With     ActiveSheet.PrintOut 1, 1

' Set up and print other pages     With ActiveSheet.PageSetup         .LeftFooter = sP2Left         .CenterFooter = sP2Center         .RightFooter = sP2Right     End With     ActiveSheet.PrintOut 2 End Sub

Per utilizzare la macro, tutto ciò che devi fare è modificare le definizioni del piè di pagina.

Modificare i valori delle variabili nell’area “Definisci piè di pagina prima pagina” e nell’area “Definisci piè di pagina seconda pagina” per ottenere solo l’output desiderato.

_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 (2187) 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:

Using a Different Footer on Secondary Pages.