Macro para guardar en PDF cerrar pdf y enviar por correo
Tengo este código que indagando encontré y es de la experta ELSA
Sub guardaPDF()
'x Elsamatilde
nbreLibro = Range("B1")
ruta = "C:\Users\usuario\Desktop\Archivos Jairo"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ruta & nbreLibro & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:= _
True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
Entonces quisiera que...
El pdf se guarde y se cierre (no se quede mostrándose)
Que solo sea un rango en especifico de una sola hoja
Y que al guardarse, se envíe a un correo en especifico (sin mostrar outlook )
1 respuesta
Respuesta de Dante Amor
2
Te anexo la macro, cambia "B3:F10" por el rango que quieras enviar
Sub EnviarRangoEnPdf()
'Por.Dante Amor
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'
ruta = "C:\Users\usuario\Desktop\Archivos Jairo\"
nombre = [B1]
'
'Se genera el archivo PDF
Range("B3:F10").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ruta & nombre & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
'
'Se envía el archivo por outlook
Set dam = CreateObject("outlook.application").createitem(0)
dam.to = "damor" 'Destinatario
dam.Body = "Cuerpo" 'Cuerpo
dam.Subject = "informe predefinido" '"Asunto"
dam.Attachments.Add ruta & nombre & ".pdf"
dam.Send
End Sub
