Guardar como Pdf un rango de celdas igual de varias Hojas
Tengo libro de excel con varias hojas con distintos nombres y necesitaría guardar como pdf un rango de celdas igual para todas las hojas y que el nombre del pdf sea el nombre de cada una de las hojas.
Tengo una idea de como puede ser la macro, pero mis conocimientos son super limitados
Sub GuardarRangoPdf()
Range("A3:M42").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:='aca supongo q va algo como activesheets' & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
2 Respuestas
Sub CONVERTIRPDF()
ruta = ThisWorkbook.Path & "\"
punto = InStrRev(ThisWorkbook.Name, ".")
libro = Left(ThisWorkbook.Name, punto - 1)
nombre = libro & ".pdf"
Sheets("NOMBRE DE LA HOJA").Range("A1:A17").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ruta & nombre, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
Prueba del siguiente modo:
Sub GuardarRangoPDF()
Dim Hoja As Worksheet
For Each Hoja In ActiveWorkbook.Worksheets
Hoja.Range("A3:M42").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\" & Hoja.Name & ".pdf", Quality:=xlQualityMinimum, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
Next Hoja
End SubComentas
Abraham Valencia
Supongo que el código esta bien, pero me tira un error. ¿Puede ser porque mi excel es viejito y no tengo la opción para guardar como PDF? Porque si me voy al menú, guardar como, no me aparece la opción PDF
¿Qué versión de Excel usas? ¿2003? ¿Inferior?
Abraham Valencia
2007, tuve que instalar el complemento para guardar como pdf y funciono! Gracias. Saludos.
Excelente. Salu2
Abraham Valencia