actually, it was wrong too [Big Grin]
this is the function that did it:
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


[ 30. November 2002, 03:25: Message edited by: Lonkero ]
_________________________
!

download KiXnet