Xref: utzoo comp.sys.next:2272 sci.math.symbolic:746
Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!rutgers!ukma!tut.cis.ohio-state.edu!purdue!mentor.cc.purdue.edu!ags
From: ags@mentor.cc.purdue.edu (Dave Seaman)
Newsgroups: comp.sys.next,sci.math.symbolic
Subject: Printing with Mathematica under 0.9
Keywords: NeXT
Message-ID: <2847@mentor.cc.purdue.edu>
Date: 31 May 89 15:45:56 GMT
Organization: Purdue University
Lines: 27

The NeXT 0.9 documentation says that Mathematica does not yet support printing.
Although there does not seem to be a way to print an entire notebook with
Mathematica, there is a way to print a single object.  The secret is to use
Mathematica's ability to communicate with an external process.  Here is one
way:

    1.  Define the external process that will handle the printing.  This might
	be:

		$LaserWriter = "!psfix | lpr"

	or you might want to specify additional flags, such as

		$LaserWriter = "!psfix | lpr -Pyourprinter"

	if you want to specify a printer other than the default.

    2.  Define a Mathematica function to do the actual printing.  For example,

		LaserWrite[graph_] := Display[ $LaserWriter, graph ]

    3.  Now you are ready to print.  A sample sequence is

		Plot3D[Sin[x y], {x,0,4}, {y,0,4}]
		LaserWrite[%]

	The plot will be automatically scaled to fit the page.