Re: [h-e-w] Printing under NTEMACS on XP

[Peter Lee]

>>>>> "Michael" == Michael R Wolf <address@hidden> writes:

    Michael> Sean Rima <address@hidden> writes:
    >> On 23 May 2003, Peter Lee stipulated:
    >> 
    >>> http://www.gnu.org/software/emacs/windows/faq6.html#printing
    >>  Many thanks for this, it is the business :)

    Michael> It's full of historical baggage. Or at least it was the
    Michael> last time I looked at it.

    Michael> If you get printing working, could you report your
    Michael> findings back to this group? It would be nice to find how
    Michael> it's done *now*, not 1-4 years ago.

It took me all of 5 minutes to get printing working with info from
that site... historical or not.

(autoload 'ps-print-buffer-with-faces "ps-print" "ps-print" t)

(setq ps-paper-type 'a4)
(setq ps-lpr-command "print")
(setq ps-lpr-switches '("/D:\\\\MYPRINTSERVER\\PRINTERNAME")) ; the printer name
(setq ps-lpr-buffer "d:\\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)))))