Visual Basic - Macro que imprima varias hojas de Excel con diferentes rangos

Life is soft - evento anual de software empresarial
   
Vista:

Macro que imprima varias hojas de Excel con diferentes rangos

Publicado por E. Álvarez (1 intervención) el 03/12/2013 10:58:25
Hola, estaría muy agradecido si alguien me dijera cómo puedo generar una macro que imprima varias hojas de un libro de Excel con diferentes rangos.

Hasta el momento, lo único que he conseguido es la impresión del mismo rango para todas las hojas.

Muchas gracias.

Sub Imprimir_seleccion()

'preparar la hoja para la impresión
'bucle que repasa todas las hojas
For Each Worksheet In ActiveWorkbook.Sheets
With ActiveSheet.PageSetup
.PrintArea = "" ¿¿¿¿¿????
.Orientation = xlPortrait 'xlLandscape
.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
Next Worksheet 'fin del bucle

'imprimir las celdas seleccionadas (1 copia)
ActiveWorkbook.PrintOut From:=1, To:=4, copies:=1, collate:=True

End Sub[/i]
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder