Macro para imprimir las hojas que se seleccione

¿Me podeis ayudar para crear una macro que imprima todas las hojas de un libro excepto la hoja portada según se haya puesto en el diseño de página el área de impresión?

2

2 Respuestas

195.000 pts. Los hombres aprenden mientras enseñan.

[Hola 

prueba con esto 

Sub imprimir()
'
    hoja = "Hoja1" ' Hoja portada
    For Each h In Sheets
        If LCase(h.Name) <> LCase(hoja) Then
        h.PrintOut
        End If
    Next h
End Sub

Así también

Sub imprimir()
'
    hoja = "Hoja1" ' Hoja portada
    For Each h In Sheets
        If LCase(h.Name) <> LCase(hoja) Then
        h.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=True
        End If
    Next h
End Sub
295.875 pts. https://youtube.com/programarexcel...

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas