José Gabriel, echale un vistazo a esta macro de Elsa Matilde haber como te va: Sub Macro25() ActiveSheet.PageSetup.PrintArea = "$S$4:$AB$99" ' RANGO QUE SE DESEA IMPRIMIR. With ActiveSheet.PageSetup .CenterHorizontally = True 'centrada horizontal y...