Imprimir en pdf varias hojas de Excel
Primero quiero agradecerte
Cualquier ayuda que me puedas brindar.
Te cuento que en la empresa
Donde trabajo tenemos un libro de excel con varias hojas, y se debe imprimir
cada hoja en pdf (el problema es que son 300 hojas), estas hojas se deben
enviar a una carpeta que está en el escritorio cuyo nombre es SUCURSALES,
pero lo más complicado es que el nombre del archivo de pdf debe ser el
mismo de la hoja en el libro de excel. Bueno no sé si escribí bien el
problema; el hecho es que llevamos rato intentando solucionarlo con VBA y no
hemos podido (Trabajamos en Excel 2010 y Windows seven).
Cualquier ayuda te quedare eternamente agradecido
1 Respuesta
Cada una por separado.
Genial entonces prueba la siguiente macro.
Sub Macro2()
Dim MiArchivo As String
Range("A2") = ActiveSheet.Name
MiArchivo = "C:\Users\Lucas A. Rios\Desktop\" + Cells(2, 1) + ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MiArchivo, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
Ten presente que la parte de la dirección la tendrás que configurar en base a tu PC referenciado el nombre de la carpeta que me indicaste.
Con esto debes crear un botón en cada hoja y listo.
Hola Luca! Como sería posible hacerlo todo en un saque?Gracias de antemano y saludos, - Alex Beraza Trueba
Buenas tardes Lucas,¿Cómo se podría imprimir todas las hojas en archivos separados? Con esta macro consigo hacer hoja a hoja pero no consigo que me imprima todo. El caso es que si el libro tiene 50 hojas he de ejecutar la macro 50 veces con la pérdida de trabajo que eso conlleva.Quedo a la espera de iluminación por tu parte. Gracias - sandrita5