Código
Sub GuardarPDF()
Dim Ruta As String
Ruta = ThisWorkbook.Path & "/Factura.pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Ruta
MsgBox "PDF guardado correctamente", vbInformation
End Sub
⭐ Si te gustó, por favor regístrate en nuestra Lista de correo y Suscríbete a mi canal de YouTube para que estés siempre enterado de lo nuevo que publicamos