From: Pascal Obry <pascal.obry@der.edfgdf.fr>
To: voelker@cs.washington.edu
Subject: Printing from EMACS under NT with the PSP package.
Date: Thu, 09 May 1996 08:08:47 +0000

Here is some code to print under NT. It is much simpler that the code
you have on your page and the main advantage is that you don't need to
modify the ps-print.el package.

This is freeware and you can do whatever you whant with it.

Pascal.

;; ##################################################  NT - PS-Print

(require 'ps-print)
(setq ps-paper-type 'ps-a4)
(setq ps-lpr-command "print")
(setq ps-lpr-switches '("/D:\\\\PLUTON\\HP4SIMX")) ; the printer name
(setq ps-lpr-buffer "c:\\temp\\psspool.ps")       ; a tmp spool file


(defun nt-ps-print-buffer-with-faces ()
  (interactive)
  (ps-print-buffer-with-faces ps-lpr-buffer)
  (shell-command
   (apply 'concat (append (list ps-lpr-command " ")
                          ps-lpr-switches
                          (list " " ps-lpr-buffer))))
)

(define-key global-map "\C-cp" 'nt-ps-print-buffer-with-faces)