Open Acrobat File

 

Compatibilities: Required Xtras: Buddy API

Rating:

Runs an acrobat file with with the specified paramaters.

--Code by Chuck Neal --Chuck@mediamacros.coc property typeLaunch, fileToOpen on getPropertyDescriptionList me   set p_list = [#fileToOpen: [#format : #string, #comment : "File to open-Including path and extension:", #default:""], #typeLaunch : [#comment: "Type of PDF open: ", #format: #string, #default: "Open", #range: ["Open", "Open /No Splash Screen", "Print-No Open"]]]   return p_list end on mouseUp me   if baFileExists(the moviePath & fileToOpen) = 1 then     set Acrobat = baFindApp( "pdf")     set myFile = baShortFileName(the moviePath & fileToOpen)     if Acrobat <> "" then             case typeLaunch of         "open" :           baOpenFile(myFile , "maximised")         "Open /No Splash Screen" :           set launchString = baShortFileName(Acrobat) & " /s " & baShortFileName(myFile)           baRunProgram(launchString, "Maximised" , false )                       "Print-No Open" :           baPrintFile(myFile)                 end case     end if   else     alert "File" && fileToOpen && "doesn"t exist."   end if end