(setq print-command-format "e2ps -a4 -p -head xemacs_buffer | sed -e '1s/ EPSF-1.2//' | lpr")
  (defun print-region (begin end)
    (interactive "r")
      (shell-command-on-region begin end print-command-format))
  (defun print-buffer ()
    (interactive)
      (print-region (point-min) (point-max)))
(setq print-function (function print-buffer))