Hola amigos!
Les queria preguntar como hago un boton activex que imprima solo una seleccion de mi hoja.(excel)
Gracias!
.
©
Vie, 08/05/2009 - 19:37
#1
boton Imprimir
boton Imprimir
Un rango de celdas en Excel tiene el método
PrintOut, que te permite imprimir sólo ese rango.por ejemplo, si seleccionas previamente el rango que quieres imprimir, basta con poner en el código del botón lo siguiente:
Selection.PrintOutAquí hay más información sobre PrintOut http://www.necesitomas.com/node/64#comment-94
------
Ya sé Excel, pero necesito más.
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
------
Ya sé Excel, pero necesito más.
Gracias Maestro!