code:

---

;test.kix
dim $file
$file=@scriptdir+"\myword.doc"
If Exist ($file)
   "Printing file "+$file?
   If FileAction($file,"Print")
      "error occured:" @error?
   Else
      "File Printed."?
   Endif
Else
   "File "+$file+" not found"? 
Endif
;
function FileAction($file,$action)
 dim $shell,$
 $fileaction=1
 $shell=createobject("shell.application")
 $file=$Shell.namespace($file).self
 if @error  $fileaction=2 exit 2 endif
 for each $ in $file.verbs
    if join(split($,"&"),"")=$action
       $shell.invokeverb(""+$)
       $fileaction=0
    endif
 next
 if $fileaction exit 1 endif
endfunction

---

quote:

---

"error occured:2"

---