code:

---

function PrintFile($file)
dim $shell,$printer,$action
 $shell=createobject("shell.application")
 $printer=$Shell.namespace($file).self
 for each $action in $printer.verbs
  if join(split($action,"&"),"")=join(split(readvalue("HKEY_CLASSES_ROOT\htmlfile\shell\Print",""),"&"),"")
   $printer.invokeverb(""+$action)
  endif
 next
endfunction

---

code:

---

$file="myword.doc"
$pf=printfile($file)
"rc4 "+@error+" "+@serror?
; 
function PrintFile($file)
dim $shell,$printer,$action 
$shell=createobject("shell.application")
"rc1 "+@error+" "+@serror? 
$printer=$Shell.namespace($file).self
"rc2 "+@error+" "+@serror? 
for each $action in $printer.verbs  
   if join(split($action,"&"),"")=join(split(readvalue("HKEY_CLASSES_ROOT\htmlfile\shell\Print",""),"&"),"")   
      $printer.invokeverb(""+$action)
      "rc3 "+@error+" "+@serror?   
   endif 
next
endfunction  

---

quote:

---

rc1 0 The operation completed successfully.
rc2 -2147352573 Member not found.
rc4 0 The operation completed successfully.

---

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"

---

code:

---

$file=$Shell.namespace($file).self  

---