La siguiente macro configura los márgenes y otros aspectos de la página. Colocala en un módulo y llamala desde cualquier macro que tengas para Imprimir o en el evento BeforePrint.
Sub ConfHoja()
'x Elsamatilde -extraída del manual 500Macros
Izq = 0
Der = 0
Sup = 0
Inf = 0
With ActiveSheet.PageSetup
'Configuración de márgenes
.LeftMargin = Application.CentimetersToPoints(Izq)
.RightMargin = Application.CentimetersToPoints(Der)
.TopMargin = Application.CentimetersToPoints(Sup)
.BottomMargin = Application.CentimetersToPoints(Inf)
'orientación
.Orientation = xlLandscape 'horizontal
'tamaño de papel
.PaperSize = xlPaperA4 'A4
End With
End Sub
Para cambiar otros aspectos podes encender la grabadora de macros, ajustar la configuración y detener la grabadora. En un módulo encontrarás estas y otras instrucciones que quizás también quieras modificar.
Experta elsa en caso que la orientación de la hoja fuera vertical cual sería el código saludos!! - Adriel Ortiz Mangia
temp01 habrás leído al enviar este comentario que el foro dice no utilizar este medio para enviar consultas...dejame una consulta en el tablón excel por favor y con mucho gusto te lo aclaro. Sdos! - Elsa Matilde