Se nel corso degli anni si sono accumulate molte cartelle di lavoro, potrebbe essere necessario stampare alcuni fogli di lavoro da ciascuna di esse. Ad esempio, potresti avere una cartella che contiene una cartella di lavoro per ciascuna delle divisioni della tua azienda per il decennio precedente. Se la tua azienda ha otto divisioni, significa che hai 80 cartelle di lavoro nella cartella. Ora, se è necessario stampare le cifre del secondo e del terzo trimestre (dal secondo e dal terzo foglio di lavoro di ciascuna cartella di lavoro), si inizia a vedere il problema. Il caricamento di ciascuna cartella di lavoro e la stampa dei fogli selezionati potrebbe richiedere molto tempo.

Un modo più rapido è creare una macro che eseguirà la stampa per te.

La seguente macro inizia chiedendoti un percorso di directory. A condizione che si specifichi un percorso, la macro inizia quindi a caricare ogni file della cartella di lavoro nella directory e quindi stampa il secondo e il terzo foglio di lavoro da ciascuno. (Alla macro non importa quale tipo di file della cartella di lavoro si trovano nella directory: potrebbero essere file XLS, XLSX o XLSM. Dovrebbe caricarli tutti.) Una volta stampata, la cartella di lavoro viene chiusa.

Public Sub PrintWorkbooks()

Dim sCurFile As String     Dim sPath As String

'Get the path     sPath = InputBox("Starting path?", "PrintWorkbooks")

If sPath <> "" Then         On Error Resume Next         Application.ScreenUpdating = False         If Right(sPath, 1) <> "\" Then             sPath = sPath & "\"

End If         sCurFile = Dir(sPath & ".xls", vbNormal)

Do While Len(sCurFile) <> 0             Workbooks.Open sPath & sCurFile, , True             With Workbooks(sCurFile)

.Worksheets(2).PrintOut                 .Worksheets(3).PrintOut                 .Close SaveChanges:=False             End With             sCurFile = Dir             DoEvents         Loop         Application.ScreenUpdating = True         On Error GoTo 0     End If End Sub

Ovviamente, se hai un bel po ‘di cartelle di lavoro nella directory, la stampa potrebbe richiedere parecchio tempo. Potresti voler trovare un po ‘di tempo in cui non hai nient’altro da fare, quindi lasciare che la macro inizi a funzionare.

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

Stampa di fogli di lavoro selezionati.