Impostare un’area di stampa per tutti i fogli di lavoro di una cartella Excel

Cercando in Rete e facendo qualche piccola modifica, ho realizzato questa routine in VBA che permette di impostare l’area di stampa in tutti i fogli di lavoro di una cartella Excel. Da solo non ce l’avevo fatta , e così devo pubblicamente ringraziare Roberto Mensa che mi ha aiutato per l’ennesima volta con il VBA.

Dim Ws As Worksheet

Sub SetWorkbookAttributes()
For Each Ws In ActiveWorkbook.Worksheets
Ws.PageSetup.PrintArea = “$A$1:$L$102”
Ws.ResetAllPageBreaks
Ws.HPageBreaks.Add Before:=ActiveSheet.Range(“A52”)
Ws.PageSetup.Zoom = 76
Next Ws
End Sub

Lascia un commento