Well, turns out to be much simpler than I expected it would be when I posed the challenge... ![[Smile]](images/icons/smile.gif)
Shawn's ole word code did the trick. For multiple printers, I'll just read an input file for share names and loop 'til done. Jooel's suggestion also works, for text files, in a shell/run context. Thanks once more to Shawn, Howard, Les, Kent, and Jooel for their brilliance and willingness to share it. ![[Big Grin]](images/icons/grin.gif)
FWIW, here's the basic test code... 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
;
Cheers...
_________________________
We all live in a Yellow Subroutine...
