code:

---

;test.kix
;print a word document to the default printer
;
$filename = "the_word.doc"
;
$printer = "\\the_print_server\the_printer_share"
;
If AddPrinterConnection ($printer) = 0
   "Added printer connection "+$printer?
   If SetDefaultPrinter ($printer) = 0
      "Set default printer to "+$printer?
   Else
      "Set default printer error "+@error+" "+@serror?   
   Endif
Else
   "Add printer error "+@error+" "+@serror?
Endif
;
$word = createobject("word.application")
;
If @error = 0
   $word.visible = 1
   $nul = $word.documents.open("$filename")
   $nul = $word.activedocument.printout(0,0,0)
   $word.quit
   $word = 0
Else
   "Word launch error "+@error+" "+@serror?
EndIf
;
If DelPrinterConnection ($printer) = 0
   "Deleted printer connection "+$printer?
Else
   "Delete printer error "+@error+" "+@serror?
Endif
;  

---

code:

---

$actionName="Print"
$file="whatever file you want to print"

$shell=createobject("shell.application")
$printer=$Shell.namespace($file).self

for each $action in $printer.verbs
 if instr(join(split($action,"&"),""),$actionName)
  $LinkDest.invokeverb(""+$verb)
 endif
next

---