--- a/lisp/printer.el	Wed Dec 19 00:40:26 2001 +0000
+++ b/lisp/printer.el	Thu Dec 20 05:49:48 2001 +0000
@@ -310,7 +310,10 @@
 	 ;; re-create the frame each time so that we eject the piece
 	 ;; of paper at the end even if we're printing more than one
 	 ;; page per sheet of paper.
-	 (let ((copies (plist-get props 'copies 1)))
+	 (let ((copies (plist-get props 'copies 1))
+	       ;; This is not relevant to printing and can mess up
+	       ;; msprinter frame sizing
+	       default-frame-plist)
 	   (while (> copies 0)
 	     (let (d f header-buffer footer-buffer)
 	       (setq buffer (decode-buffer buffer))
@@ -443,5 +446,5 @@
 	     (setq copies (1- copies)))))
 	((and (not (eq system-type 'windows-nt))
 	      (fboundp 'lpr-region))
-	 (lpr-region buffer))
+	 (lpr-region (point-min) (point-max)))
 	(t (error "No print support available"))))