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.

---