Это сработало для меня (Emacs 23.3.1 / Windows 7 64x) [все еще борется с выводом цвета]:
;; Printing (require 'ps-print) (setq printer-name '"USB001") (setq ps-printer-name t) (setq ps-lpr-command "g:/dev/bin/ghostscript/gs9.04/bin/gswin64c.exe") (setq ps-lpr-switches '("-q" "-dNOPAUSE" "-dBATCH" "-sDEVICE=mswinpr2")) ;; Add Consolas (setq ps-font-info-database (append '((Consolas (fonts (normal . "Consolas") (bold . "Consolas-Bold") (italic . "Consolas-Italic") (bold-italic . "Consolas-Bold-Italic")) (size . 11.0) (line-height . 13.0) (space-width . 6.04688) (avg-char-width . 6.04688))) ps-font-info-database)) (setq ps-font-family 'Consolas) (setq ps-font-size 11) ;; Print in color (setq-default ps-print-color-p t) ;; Page layout: Header [file-name 2011-12-05] ;; Footer [ n/m] ;; Header (setq ps-header-lines 1) (setq ps-header-font-size 11) (setq ps-header-title-font-size 11) (setq ps-header-font-family 'Consolas) (setq ps-right-header '(ps-time-stamp-yyyy-mm-dd)) (setq ps-print-header-frame nil) ; no box top ;; Footer (setq ps-footer-lines 1) (setq ps-footer-font-size 11) (setq ps-footer-font-family 'Consolas) (setq ps-print-footer t) (setq ps-left-footer nil) (setq ps-right-footer (list "/pagenumberstring load")) (setq ps-footer-offset .50) (setq ps-footer-line-pad .50) (setq ps-print-footer-frame nil) ; no box bottom ;; Keystroke to print (global-set-key (kbd "C-|") 'ps-print-buffer-with-faces)
Удачи!