RE: Printing from WindowXP version of emacs

[Drew Adams]

I have not been following this thread closely. If this helps at all, good;
if not, please ignore.

I use native Emacs on Windows XP, and I use printing.el for printing. I use
Cygwin, but I don't use the Emacs built especially for Cygwin.

Below are my printer settings, in case they help someone. I use network
printers (in my case, named 4op1135b and 4op1107a) at work, and a local
printer (via PRN) at home. All of the printers are PostScript printers.

printing.el is a great package, IMO. I generally print using the menus it
provides, but you can alternatively use commands (key bindings). The menus
make everything very clear - it's easy to choose exactly the kind of
printing you want, and to switch printing options, including which printer
to use.

Configuration options are well documented in the source file, printing.el.
The exact syntax to use for configuration is a bit confusing (e.g.
"/D:\\\\printer-server\\4op1135b" for non-PostScript printing vs
"\\\\printer-server\\4op1135b" for PostScript printing), but once you have
configured things, the functionality is great. So, if you're having trouble,
try my settings (with your printer names and addresses, of course) and see
if they don't do the trick for you. HTH.

------------8<---------------------------

(setq pr-path-alist
      '((windows "c:/Program Files" PATH ghostview ghostscript)
        (ghostview "c:/Program Files/Ghostgum/gsview")
        (ghostscript "c:/gs/gs8.11/bin")
        (cygwin windows)))
(setq pr-txt-name 'home)
(setq pr-txt-printer-alist
      '((home "" nil "PRN")             ; Local printer
        (4op1135b nil nil               ; Network printer
         "/D:\\\\printer-server\\4op1135b")
        (4op1107a nil nil               ; Network printer
         "/D:\\\\printer-server\\4op1107a")))
(setq pr-ps-name '4op1135b)
(setq pr-ps-printer-alist
      '((home "" nil "" "PRN" (ps-spool-duplex)) ; Local (not duplex)
        (4op1135b "print" nil "/D:"     ; Network
         "\\\\printer-server\\4op1135b"
         (ps-spool-duplex . t))
        (4op1107a "print" nil "/D:"     ; Network
         "\\\\printer-server\\4op1107a"
         (ps-spool-duplex . t))))
(setq pr-temp-dir
      "c:/Documents and Settings/you/Local Settings/Temp") ; Temp files
;;;(setq pr-delete-temp-file nil)  ; Don't delete temp file
(setq pr-faces-p nil) ; Don't print using Emacs face attributes
;; Don't insert ^D (blank page) at end of PostScript.
(setq ps-end-with-control-d nil)
(when (fboundp 'pr-update-menus) (pr-update-menus t))

(global-set-key "\C-ci"  'pr-interface)
(global-set-key "\C-cbp" 'pr-ps-buffer-print)
(global-set-key "\C-cbx" 'pr-ps-buffer-preview)
(global-set-key "\C-cbb" 'pr-ps-buffer-using-ghostscript)
(global-set-key "\C-cb1f" ; Prompt for file
                (lambda () (interactive) (pr-ps-buffer-ps-print 1 t)))
(global-set-key "\C-cb1p"
                (lambda () (interactive) (pr-ps-buffer-ps-print 1 nil)))
(global-set-key "\C-crp" 'pr-ps-region-print)
(global-set-key "\C-crx" 'pr-ps-region-preview)
(global-set-key "\C-crr" 'pr-ps-region-using-ghostscript)
(global-set-key "\C-cr1f"
                (lambda () (interactive) (pr-ps-buffer-ps-print 1 t)))
(global-set-key "\C-cr1p"
                (lambda () (interactive) (pr-ps-buffer-ps-print 1 nil)))