(defun c:Dff ()  (Druck_ff))
(defun Druck_ff ()
  (princ "Routine für 'fortlaufender Druck'")
  (setq P1 (getpoint "\n untere linke Ecke des 1. Druckfensters = ")
        D (getdist P1 "\n Abstand zur untere linke Ecke des 2. Druckfenster = ")
        Anz (getint "\n Seiten-Anzahl = ")
        PlotStil "12_WM.ctb"))
  (repeat Anz
    (setq p2 (mapcar '+ P1 '(297 210)))
    (command "-PLOT" "j" "modell" "PDFCreator" "A4" "m" "q" "n" "f" P1 P2 "a" "z" "j" PlotStil "J" "W" "N" "N" "J")
    (setq p1 (mapcar '+ P1 (list d 0)))
    ) ;end repeat
  (princ)
  )

  (princ "\n Routine für 'fortlaufender Druck' geladen.\n Aufruf mit 'DFF'")
  (princ)