[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Printing to a Laserwriter II NT
I have a problem with hardcopying a file to an Apple Laserwriter II NT:
the file is printed backwards (last page first). I already figured
out that it is caused by the value of the instance variable
prints-backward in the hardcopy stream. I couldn't figure out how I
have to install the printer in the namespace so that it would print in
the correct order (there is no field prints-backward). Right now, it
is installed as an LGP2. Any help will be appreciated.
Try the code that follows. It does modify (actually adds incrementally
to the) behavior of a system function. I suggest you load it from your
lispm-init or something similar - if the problem gets fixed in a
future release, you can just forget this.
Hope this helps.
;;; -*- Syntax: Zetalisp; Mode: LISP; Base: 10; Package: LGP; Lowercase: Yes -*-
;;; LGP2 hardcopy stream interface. LGP protocol knowledge.
;;; The before method is added to reverse the printing of pages on the
;;; postscript printers to make it print forwards.
(defmethod (:send-page-buffers lgp2-page-buffering-stream :before) ()
(setq hci::print-backwards nil))