Sub PDF24Merge(outPDF As String, a)
Dim I As Long, s As String, exe As String, q As String
'************** Change exe path to yours *************************
exe = Environ("ProgramW6432") & "\PDF24\Pdf24-DocTool.exe"
If Trim(Environ("ProgramW6432")) = "" Then exe = "C:\Program Files" & "\PDF24\Pdf24-DocTool.exe"
q = """"
outPDF = q & outPDF & q
's = exe & " -join -profile ""default/good"" -outPutFile " & outPDF & " "
s = exe & " -join -profile -compress ""default/good"" -noProgress -outputFile " & outPDF & " "
For I = LBound(a) To UBound(a)
a(I) = q & a(I) & q
Next I
s = s & Join(a, " ")
'Debug.Print s
'MsgBox s
Shell s, vbHide
'Call CompressPDF(outPDF)
End Sub
I am running Windows 10 32bit with PDF24 installed
The above are in VBA excel code.
But after last update i do not manish anylonger to Merge all the files in a to one PDF file ?
What can be reasons and a solutions to have it work again ?