valedor respondió:
En la personalización de las barras de herramientas, ya hay un botón que hace esto, pero si lo quieres hacer con código, esto te sirve... Public Sub Establecer_Area_Impresion() ActiveSheet.PageSetup.PrintArea = Selection.Address End Sub Esto...