printer.el

(defun print-header-func ()
  (concat (ps-time-stamp-locale-default) " : " (ps-header-dirpart)))


(setq ps-spool-duplex t
      ps-switch-header nil
      ps-print-header t
      ps-print-footer nil
      ps-print-header-frame nil
      ps-header-offset 5.58001116
      ps-header-title-font-size '(10 . 12)
      ps-header-font-size '(7 . 8.5)
      ps-header-lines 1
      ps-left-header (list 'print-header-func))

(setq lpr-command "gtklp")
(setq ps-lpr-command "gtklp")