Imprimir varias hojas de un libro excel en un solo fichero PDF
Tengo un libro Excel con 14 hojas y quiero imprimir en PDF el rango de doce de ellas en un solo fichero que no en una sola hoja, es posible.
1 respuesta
H o l a:
Si quieres guardar varias hojas seleccionadas desde un listbox, consulta los siguientes enlaces:
Macros para exportar a pdf hojas seleccionadas de un libro de excel
Guardar determinadas hojas de Excel en PDF solicitando la Ruta y nombre
MACRO de excel para imprimir varias hojas de un mismo libro
En la solución, puedes tener hojas ocultas, poner hojas que siempre se impriman.
Ahí también viene explicado cómo crear el listbox y qué propiedades debe tener.
El nombre del archivo, puede tomar el dato de una hoja y una celda, pero deberás poner de cuál hoja, ya que vas a seleccionar varias hojas, o bien, puedes dejar un nombre fijo.
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda.
.
He conseguido hacerla pero como podría hacer para que me grabara el fichero con el nombre introducido en una celda y no como lo he puesto yo "PRESUPUESTO"
Adjunto macro
Sub IMPRESIONPDF()
Sheets(Array("Rangos", "Demolicion", "Albañileria", "Carpinteria", _
"Fontaneria", "Electricidad", "Ventanas", "Armarios", "Resumen")).Select
Sheets("Rangos").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Datos\Excel\Presupuesto.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Sheets("Rangos").Select
End Sub
Te anexo el cambio, reemplaza D5 por la celda que desees
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\Datos\Excel\" & Range("D5") & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=Falsesal u dos
