my-pdf-print.el

(defun my-pdf-misc-print-document (filename copies &optional interactive-p)
  (interactive 
    (list (pdf-view-buffer-file-name) current-prefix-arg t))
  (cl-check-type filename (and string file-readable))
  (let ((programm (pdf-misc-print-programm interactive-p))
      	(args (append pdf-misc-print-programm-args
		      (list (concat "-# "
			    (if (null copies) "1"
			    (number-to-string copies))))
		      (list filename))))
    (unless programm
      (error "No print program available"))
    (apply #'start-process "printing" nil programm args)
    (message "Print job started: %s %s"
             programm (mapconcat #'identity args " "))))

In order to remap the C-c C-p to this new printing function, put in the init.el :

(define-key pdf-misc-minor-mode-map (kbd "C-c C-p") 'my-pdf-misc-print-document)