Foros:
Hola, el problema es el siguiente: Dispongo de un libro Excel-2007 con cuatro hojas, la primera la llamo "Datos", la segunda es "Certificación" la siguiente la llamo, "Horas" y la última la llamo "graf_cer". Desde "Datos" he configurado una serie de botones desde los cuales intento imprimir las diversas hojas que la preceden, pero con el código que he implementado solo consigo imprimir la "Hoja Activa" es decir donde están los botones que es "Datos", y lo que pretendo es imprimir en función del botón la hoja que más me convenga. Podrías decirme cual sería el código ideal, para poder hacerlo. Te adjunto el código que dispongo, tengo que reconocer que a excepción del problema antes comentado, me imprime la hoja activa, muy bien centrada en la hoja y me gustaria que el nuevo código mantuviera esta premisa.Gracias.
Sub Imprimir_certificaciones()
'preparar la hoja para la impresión
With ActiveSheet.PageSetup
.PrintArea = ""
.Orientation = xlLandscape ' xlPortrait
.PaperSize = xlPaperA4 'formato A4
.BlackAndWhite = False 'incluir colores o no
.FitToPagesWide = 1 'reduce el tamaño de la hoja (ancho)
.FitToPagesTall = 1 'reduce el tamaño de la hoja (alto)
.CenterHorizontally = False 'centrar horizontalmente
.CenterVertically = False 'centrar verticalmente
End With
'imprimir las celdas seleccionadas (1 copia)
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True
End Sub