Stampa selezionata Fogli di lavoro

Se avete un sacco di cartelle di lavoro che si sono accumulati nel corso degli anni, si può avere la necessità di stampare alcuni dei fogli di lavoro di ciascuno di essi. Ad esempio, si potrebbe avere una cartella che contiene una cartella di lavoro per ognuna delle divisioni della vostra azienda per il decennio precedente. Se la vostra azienda ha otto divisioni, che significa che hai 80 cartelle di lavoro nella cartella. Ora, se è necessario stampare i dati del secondo trimestre e nel terzo trimestre (dal secondo e terzo fogli di lavoro di ogni cartella di lavoro), si inizia a vedere il problema. Caricamento ogni cartella di lavoro e quindi la stampa selezionata fogli potrebbero prendere una quantità enorme di tempo.

Un modo più veloce è quello di creare una macro che farà la stampa per voi. Il seguente inizia macro chiedendovi per un percorso di directory. A condizione che si specifica un percorso, la macro poi inizia a caricare ogni file XLS (Excel) nella directory, e poi stampare il secondo e il terzo foglio di lavoro da ognuno. Una volta stampato, il foglio di lavoro è chiuso.

PrintWorkbooks Public Sub ()
Dim sCurFile As String
Dim sPath As String

'Prendi il percorso
sPath = InputBox ("Avvio di percorso?", "PrintWorkbooks")
Se sPath <> "" Allora
On Error Resume Next
Application.ScreenUpdating = False
Se Destro (sPath, 1) <> "\" Allora
sPath = sPath & "\"
End If
sCurFile = Dir (sPath e "* .xls", vbNormal)
Do While Len (sCurFile) <> 0
Workbooks.Open sPath & sCurFile,, True
Con Cartelle di lavoro (sCurFile)
.Worksheets (2) .PrintOut
.Worksheets (3) .PrintOut
SaveChanges .Close: = False
End With
sCurFile = Dir
DoEvents
Cappio
Application.ScreenUpdating = True
On Error GoTo 0
End If
End Sub

Ovviamente, se si dispone di un bel paio di cartelle di lavoro nella directory, la stampa potrebbe richiedere parecchio tempo. Si consiglia di trovare un po 'di tempo quando non hai niente altro da fare, e poi lasciare che la macro rincorsa.

ExcelTips è la vostra fonte per la formazione Microsoft Excel conveniente. Questo suggerimento (2215) si applica a Microsoft Excel 97, 2000, 2002, e 2003. È possibile trovare una versione di questo suggerimento per l'interfaccia ribbon di Excel (Excel 2007 e versioni successive) qui: stampa selezionata fogli di lavoro.