special lpr-buffer command

[Tom Wurgler]

Here some code I find useful, hope others do.  I have this bound to 
my "print screen" button.  If the region is active, just print that region.
If it is not active, print the whole buffer.


(defun my-lpr-buffer (arg)
  "Print ARG copies of just the region if it is active.
Print ARG copies of text bewteen point-min and point-max is it is not."
  (interactive "p")
  (let* ((sys_type (if (string-match "lpr" lpr-command) "-#" "-n"))
         (lpr-switches
          (if (> arg 1)
              (cons (concat sys_type (int-to-string arg)) lpr-switches)
            lpr-switches)))
    (if mark-active
        (lpr-region (mark) (point))
      (lpr-region (point-min) (point-max)))))