Reducir el ancho de un documento

hola, !

Quiero hacer una macro que dependiendo de la impresora del usuario
el anchodel libro1 se adapte automaticamente al ancho de impresión, para que no salga recortada la pagina.
Ya se que se puede configurar la pagina, pero necesito hacerlo con una macro automaticamente.
Me explico? Es posible?

prueba usando la grabadora de macros mientras realizas ajustes a la configuracion de pagina del libro/hoja...
despues revisa el codigo generado y usa/aprovecha/modifica/adapta/... (solo) las partes que te interesen ;)

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Bueno, al final lo conseguí. Ahí va por si a alguien le hace falta:

Sub Macro()

Dim nPaginas as integer

With ActiveSheet.PageSetup
nPaginas = .HPageBreaks.Count + 1
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = nPaginas
End With

End Sub