Necesito sacar un documento de pdf desde uno de excel

Hola, tengo un documento en excel donde los usuarios eligen varios campos, y se les genera una carta a través de una pequeña macro y un botón de imprimir, lo que necesito es que ademas de que les salga la vista previa para imprimir, les parezca la carta en formato pdf, o un botón que diga formato pdf, para que se pueda mandar por correo. Dejo la macro que tengo para imprimir, sirve bien, pero no se como hacer lo de pdf.

Sub imprime()
'por.dam
Sheets("Carta Admi.").Visible = True
ActiveSheet.Unprotect
Sheets("Carta Admi.").Select
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.Protect
ActiveWindow.SelectedSheets.Visible = False
End Sub

Espero me puedan ayudar, Gracias.