Private Sub CommandButton4_Click()
Set zona = ActiveSheet.Range(Cells(1, 1), Cells(1, 3).End(xlDown))
                 ActiveSheet.PageSetup.PrintArea = zona.Address
                 With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = "Pagina &P di &N"
.PrintHeadings = False 'intestazioni di riga e colonna: con False non vengono stampate
.PrintGridlines = False 'griglia: con false non viene stampata
.PrintComments = xlPrintNoComments 'commenti: non vengono stampati
'.PrintQuality = 360   'il valore 360 imposta la qualità di stampa
.CenterHorizontally = False 'centraggio orizzontale: con False viene lasciato l'allineamento
'tradizionale a sinistra nella pagina
.CenterVertically = False 'centraggio verticale.idem come sopra
.Orientation = xlPortrait 'così stampa in verticale e con  xlLandScape = orizzontale
.Draft = False 'per stampare anche i grafici: con false non li stampa
.PaperSize = xlPaperA4 'si imposta formato foglio A4
.FirstPageNumber = xlAutomatic 'numerazione automatica delle pagine
.Order = xlDownThenOver 'imposta l'ordine automatico utilizzato per numerare le pagine
.BlackAndWhite = False 'impostata a False per consentire la stampa di event. font 'colorati. Impostata a True stamperebbe tutto in bianco e nero.
.Zoom = 100 'lo zoom consente di variare il fattore di ingrandimento o di riduzione di 'tutta l'area che andrà in stampa. Riducendo il valore (100 è di default) si può far 'comprendere come PrintArea, una zona più ampia (es.: una colonna che diversamente 'non rientrando nel foglio A4, richiederebbe 2 fogli in stampa. Ricordarsi di ripristinare il 'valore al default se si modifica, perchè Excel lo memorizza anche per stampe successive.
.PrintErrors = xlPrintErrorsDisplayed  'consente la visualizzazione di errori di stampa
End With
'ed ora si va in stampa: una copia, con l'opzione "fascicola" impostata a SI (true)
zona.PrintOut Copies:=1, Collate:=True

End Sub