Windows 11 not supporting "CreatePDFEx" ("CreatePDFEx" Not working with ISettings)
Office 365 VBA Code not working in Windows 11 with Adobe Pro. Is anything changed in Windows 11 combo ? . Need a help from support team.
(below code works good with Windows 10 with Adobe Pro)
Dim pdfmkr As AdobePDFMakerForOffice.PDFMaker
Dim stng As AdobePDFMakerForOffice.ISettings
Set pdfmkr = Nothing
Dim AddIn As COMAddIn
For Each AddIn In Application.COMAddIns
If InStr(UCase(AddIn.Description), "PDFMAKER") > 0 Then
Set pdfmkr = AddIn.Object
Exit For
End If
Next
'ActiveDocument.Save
'Settings for the document
' pdfmkr.GetCurrentConversionSettings stng
pdfmkr.GetDefaultConversionSettings stng
stng.AddBookmarks = True
stng.AddLinks = True
stng.OutputPDFFileName = strPDFFileName
stng.PromptForPDFFilename = False
stng.ShouldShowProgressDialog = True
stng.JobOptions = "FRIPDF"
stng.ViewPDFFile = True
stng.AddTags = False
pdfmkr.CreatePDFEx stng, 0
AdChoices