Martin ha chiesto se esiste un modo per impostare gli intervalli di stampa per più fogli di lavoro contemporaneamente. Ha una cartella di lavoro contenente un numero di fogli di lavoro strutturati esattamente nello stesso modo e desidera che i rispettivi intervalli di stampa siano esattamente gli stessi.

Come ha scoperto Martin, non è possibile farlo direttamente in Excel.

Quando si selezionano più fogli di lavoro, si seleziona l’area che si desidera impostare come area di stampa e quindi si prova a impostare l’area di stampa, si scopre rapidamente che l’opzione per eseguire l’impostazione è disattivata, quindi non è possibile selezionarla.

Tuttavia, ci sono molte cose che puoi provare. Uno è iniziare con una nuova cartella di lavoro e sviluppare un singolo foglio di lavoro che contiene l’area di stampa come vorresti su tutti i fogli di lavoro. Quindi, copia il foglio di lavoro quante volte desideri nella cartella di lavoro. I fogli di lavoro copiati avranno l’area di stampa impostata come nel primo foglio di lavoro.

L’altra opzione è creare una macro che eseguirà l’impostazione dell’area di stampa per te. Considera la seguente macro, che imposterà l’area di stampa per tutti i fogli di lavoro selezionati su qualunque sia l’area di stampa nel foglio di lavoro attivo. (Quando è selezionato più di un foglio di lavoro, il foglio di lavoro attivo è quello visibile quando si esegue la macro.)

Sub SetPrintAreas1()

Dim sPrintArea As String     Dim wks As Worksheet

sPrintArea = ActiveSheet.PageSetup.PrintArea     For Each wks In ActiveWindow.SelectedSheets         wks.PageSetup.PrintArea = sPrintArea     Next     Set wks = Nothing End Sub

Se preferisci che l’area di stampa sia impostata su un intervallo da te specificato, piuttosto che dover impostare prima l’area di stampa sul foglio di lavoro attivo, puoi apportare una piccola modifica alla macro in modo che utilizzi un intervallo per l’area di stampa :

Sub SetPrintAreas2()

Dim sPrintArea As String     Dim wks As Worksheet

sPrintArea = "A7:E22"

For Each wks In ActiveWindow.SelectedSheets         wks.PageSetup.PrintArea = sPrintArea     Next     Set wks = Nothing End Sub

Per scegliere un’area di stampa diversa per le proprie esigenze, sostituire l’intervallo assegnato alla variabile sPrintArea. Se ritieni di poter utilizzare la macro un po ‘, in un numero di cartelle di lavoro diverse, o se ritieni che potresti dover cambiare l’area di stampa regolarmente, potresti cambiare la macro in modo che richieda all’utente un intervallo da utilizzare:

Sub SetPrintAreas3()

Dim sPrintArea As String     Dim wks As Worksheet

sPrintArea = InputBox("Enter print area range")

For Each wks In ActiveWindow.SelectedSheets         wks.PageSetup.PrintArea = sPrintArea     Next     Set wks = Nothing End Sub

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

Impostazione degli intervalli di stampa per più fogli di lavoro.