[ingeman]

Udklip.JPG

The above pupup

Stil the same - popup

exe = Environ("ProgramW6432") & "\PDF24\Pdf24-DocTool.exe"

s = exe & " -join -profile -compress ""default/good"" -noProgress -outputFile " & outPDF & " "

[ingeman]

exe = Environ("ProgramW6432") & "\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

Shell s, vbHide

How to avoid the popup on every time call

[Author]

Posts