Function: pr-ps-file-up-ps-print

pr-ps-file-up-ps-print is an autoloaded, interactive and byte-compiled function defined in printing.el.gz.

Signature

(pr-ps-file-up-ps-print N-UP IFILENAME &optional OFILENAME)

Documentation

Process a PostScript file IFILENAME and send it to printer.

Interactively, the command prompts for N-UP printing number, for an input PostScript file IFILENAME and, when you use a prefix argument (C-u (universal-argument)), the command prompts the user for an output PostScript file name OFILENAME, and saves the PostScript image in that file instead of sending it to the printer.

Noninteractively, if N-UP is nil, prompts for N-UP printing number. The argument IFILENAME is treated as follows: if it's t, prompts for an input PostScript file name; otherwise, it *must* be a string that it's an input PostScript file name. The argument OFILENAME is treated as follows: if it's nil, send the image to the printer. If OFILENAME is a string, save the PostScript image in a file with that name. If OFILENAME is t, prompts for a file name.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/printing.el.gz
;;;###autoload
(defun pr-ps-file-up-ps-print (n-up ifilename &optional ofilename)
  "Process a PostScript file IFILENAME and send it to printer.

Interactively, the command prompts for N-UP printing number, for an input
PostScript file IFILENAME and, when you use a prefix argument (\\[universal-argument]), the
command prompts the user for an output PostScript file name OFILENAME, and
saves the PostScript image in that file instead of sending it to the printer.

Noninteractively, if N-UP is nil, prompts for N-UP printing number.  The
argument IFILENAME is treated as follows: if it's t, prompts for an input
PostScript file name; otherwise, it *must* be a string that it's an input
PostScript file name.  The argument OFILENAME is treated as follows: if it's
nil, send the image to the printer.  If OFILENAME is a string, save the
PostScript image in a file with that name.  If OFILENAME is t, prompts for a
file name."
  (interactive (pr-interactive-n-up-inout
		(if pr-print-using-ghostscript
		    "PS print GS"
		  "PS print")))
  (defvar pr--n-up) (defvar pr--ifilename) (defvar pr--ofilename)
  (let ((pr--n-up n-up) (pr--ifilename ifilename) (pr--ofilename ofilename))
    (let ((outfile (pr-ps-utility-args 'pr--n-up 'pr--ifilename 'pr--ofilename
                                       (if pr-print-using-ghostscript
                                           "PS print GS "
                                         "PS print "))))
      (pr-ps-utility-process pr--n-up pr--ifilename outfile)
      (unless pr--ofilename
        (pr-ps-file-ps-print outfile)
        (pr-delete-file outfile)))))