TclBitPrint , by Mats Bengtsson, 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.
TclBitPrint provides the MacCarbonPrint package