* [Printing text files under Windows] * [Printing a canvas under Windows] * [BLT - graph - printing from Windows] * prfile32 * [ezprint] * David Zolli says A.N.D. Technologies' "printraw tool [http://www.andtechnologies.com/printraw.html] ... is small, free and very simple to use" ---- [GWL] A small routine to print a given file under Windows (note it blows up if the extension is not registered or if there is no print command for the extension -- feel free to add error checking): proc WindowsPrintFile {fileName} { package require csv ## ## Get the print command for this type ## set ext [file extension $fileName] set app [registry get [format {HKEY_CLASSES_ROOT\%s} $ext] {}] set app [format {HKEY_CLASSES_ROOT\%s\shell\print\command} $app] set cmdList {} foreach cmdElement [::csv::split [registry get $app {}] { }] { lappend cmdList [string map {%1 %1$s} $cmdElement] } ## ## Print the file -- catch is needed because return codes are not Unix ones!!! ## set cmd [format $cmdList $fileName] catch {eval exec $cmd} msg ## ## All done, so return ## return; }