Macro para imprimir una hoja de un libro de Excel 2003 en pdf
Estuve buscando en muchos lugares y no logro encontrar una macro que funcione para mi caso.
- En la celda A1 (de la hoja "Hoja1") escribo el nombre que quiero que tenga la hoja impresa en pdf
- En la celda A2 la dirección donde quiero que se grabe la impresión.
Supongo debe existir una manera de tener una macro en un botón para que al hacer click me imprima la información en pdf.
1 Respuesta
Prueba con la siguiente macro
Sub EnviarHojaPdf()
'Por.Dante Amor
Set h1 = Worksheets("Hoja1")
nombre = h1.[A1]
ruta = h1.[A2]
'
If nombre = "" Or InStr(1, nombre, "/") > 0 Then
MsgBox "Nombre de archivo inválido"
Exit Sub
End If
If Right(ruta, 1) <> "\" Then
ruta = ruta & "\"
End If
If Dir(ruta, vbDirectory) = "" Then
MsgBox "No existe la carpeta: " & ruta
Exit Sub
End If
'
h1.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ruta & nombre & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
MsgBox "PDF creado", vbInformation
End SubS a l u d o s . D a n t e A m o r
Si es lo que necesitas.
Gracias por la respuesta, pero me arroja un alerta que dice:
"El objeto no admite esta propiedad o método"
No encuentro el problema. Gracias
Si te aparece la opción de depurar, puedes presionar el botón depurar y decirme en qué línea de la macro se pinta de amarillo.
Si puedes grabar una macro, ejecuta la grabadora de macros y guarda la hoja como pdf, detén la grabadora de macro. Entra a VBA y el código que te haya generado la grabadora de macros, lo copias y lo pegas para revisarlo.
Revisé lo que me dijiste y ahora creo que entiendo el porque del error. No tengo la opción de grabar como pdf en la versión 2003 y tampoco puede depurar cuando me arroja el error que mencioné arriba.
Ah bueno, si no tienes en excel guardar como Pdf, puedes buscar en la red un software, para que al imprimir lo envíe a un archivo como pdf, por ejemplo: Pdf24 creator.
Saludos. Dante Amor
