TclBitPrint is an extension to Tcl/Tk to provide printing on non-postscript printers. It consists of two parts, drawing code which uses the underlying emulated Xlib and is therefore completely generic, and platform specific dialogs, etc.
http://sourceforge.net/projects/tclbitprint/