boton Imprimir

5 envíos / 0 nuevos
Último envío
arguerof
Imagen de arguerof
Offline
última acción: Hace 10 años 6 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntos
alta: 20/04/2009 - 20:30
Puntos: 660
boton Imprimir

Hola amigos!

Les queria preguntar como hago un boton activex que imprima solo una seleccion de mi hoja.(excel)

Gracias!
.

©

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 3 horas 27 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 10640
Imprimir rango

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.PrintOut

Aquí hay más información sobre PrintOut http://www.necesitomas.com/node/64#comment-94

 

------
Ya sé Excel, pero necesito más.

arguerof
Imagen de arguerof
Offline
última acción: Hace 10 años 6 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntos
alta: 20/04/2009 - 20:30
Puntos: 660
Re: Imprimir rango

Muy bueno muchas gracias.

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

gracias!

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 3 horas 27 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 10640
Re: Imprimir rango

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.

arguerof
Imagen de arguerof
Offline
última acción: Hace 10 años 6 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntos
alta: 20/04/2009 - 20:30
Puntos: 660
Re: boton Imprimir

Gracias Maestro!