Muy bueno muchas gracias.

una cosita mas un comando para que la seleccion hecha la imprima pero ajustando a pagina?

gracias!

Al ajuste del tamaño de la página se configura para la hoja, y al imprimir la selección toma esa configuración de la hoja donde se encuentre.

Así que se puede o configurar la hoja antes de imprimir, o bien desde el código del botón modificando la configuración de la página.

Creo que lo mejor es grabar una macro para ajustar la configuración con las opciones que necesites, y así puedes luego ver todos los ajustes que has elegido.

yo he grabado una de ejemplo que ajusta el ancho a una página y deja libre el alto:

With ActiveSheet.PageSetup
' ejemplo de configuración de página para impresión (generado con el grabador de macros)
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.787401575)
        .RightMargin = Application.InchesToPoints(0.787401575)
        .TopMargin = Application.InchesToPoints(0.984251969)
        .BottomMargin = Application.InchesToPoints(0.984251969)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 1200
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1   ' esto fija una página de ancho
        .FitToPagesTall = False  ' esto deja el alto libre
        .PrintErrors = xlPrintErrorsDisplayed
End With


------
La potencia sin control no sirve de nada.
Power is nothing without control.