Export Active Sheet to PDF

[ShrimpSalad]

I currently have an excel spreadsheet that I created recently, that would export the active sheet into PDF format and attached to an outlook email.
However, ever since the company updated the Adobe Acrobat to Acrobat DC, the code would prompt error.

Sub AttachActiveSheetPDF()
Dim IsCreated As Boolean
Dim i As Long
Dim PdfFile As String, Title As String
Dim OutlApp As Object

' Define PDF filename
PdfFile = ActiveWorkbook.FullName
i = InStrRev(PdfFile, ".")
If i > 1 Then PdfFile = Left(PdfFile, i - 1)
PdfFile = PdfFile & ".pdf"

' Export activesheet as PDF

With ActiveWorkbook

.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False


.ActiveSheet.Select True
End With

Any assistance is greatly appreciated.

 

[SpillerBD]

hmm.
Excel doesn't rely on a separate PDF application for the Export. However, maybe Acrobat DC installs an add-in that messes with the procedure. If there are, try disabling the addins.
Try recording the process and see if there are any issues or differences between your current code on the recorded VBA of note.

 

[Logit]

.
This will save active sheet as PDF :

Option Explicit


Sub Export_Worksheet_to_PDF()


    Dim mypath As String, fname As String
    mypath = ThisWorkbook.Path
    fname = CreateObject("Scripting.FileSystemObject").GetBaseName(ThisWorkbook.Name)
    ActiveSheet.ExportAsFixedFormat 0, mypath & "\" & fname


End Sub