Personalizar o configurar hoja con macro

Podes obtener tus propias instrucciones con estos pasos:

- Encendé la grabadora de macros

-Ajustá el diseño de página a gusto

- Detené la grabadora

- En un módulo encontrarás las instrucciones, algo similar a esta:

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

Observa que dejo definidos los valores para los márgenes. Estos pueden tomarse de celdas auxiliares, por ej:

Izq = sheets("Hojax").[A1] y así con el resto.

Hola

Hice lo que me sugirió pero me da error en donde dice papersize.

Lo de los margenes si funciona.

Probé esto pero no me funciono:

.PageHeight = CentimetersToPoints(21)
.PageWidth = CentimetersToPoints(33)

Como podría hacer algo similar a eso.

Saludos

Haciendo lo que te comenté al inicio de mi respuesta: utilizar la grabadora y obtener las instrucciones de tu propia configuración. Luego si hiciera falta algún ajuste, dejame escrita aquí la macro obtenida y lo que deseas modificar.

Porque el tema configuración depende de tu equipo, qué tipo de papel utilizas y cosas así,

Mi macro es solo un ejemplo de cómo utilizar luego los valores en forma de 'variables' para poder modificar a gusto.

Sdos!

hola

esto me sale al grabar

Sub Macro1()
'
' Macro1 Macro
'

'
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.31496062992126)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = 257
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
End Sub