(defun C:DBLPRNT (/ layout format_x format_y format ausrichtung hp_format ca_filename hp_filename)
	(setq layout (getvar "ctab"))
	(if (= layout "Model")
		(print "FEHLER: Das Drucken mit 'DBLPRNT' ist nur im Layout möglich")
		(princ)
	)
	(setq format_x (car (getvar "limmax")))
	(setq format_y (cadr (getvar "limmax")))
	(cond
		((= format_x 210.0) (= format_y 297.0) (setq format "ISO A4") (setq ausrichtung "H"))
		((= format_x 297.0) (= format_y 210.0) (setq format "ISO A4") (setq ausrichtung "Q"))
		((= format_x 297.0) (= format_y 420.0) (setq format "ISO A3") (setq ausrichtung "H"))
		((= format_x 420.0) (= format_y 297.0) (setq format "ISO A3") (setq ausrichtung "Q"))
		((= format_x 420.0) (= format_y 594.5) (setq format "ISO A2") (setq ausrichtung "H"))
		((= format_x 594.5) (= format_y 420.0) (setq format "ISO A2") (setq ausrichtung "Q"))
		((= format_x 594.5) (= format_y 841.0) (setq format "ISO A1") (setq ausrichtung "H"))
		((= format_x 841.0) (= format_y 594.5) (setq format "ISO A1") (setq ausrichtung "Q"))
		((= format_x 841.0) (= format_y 1189.0) (setq format "ISO A0") (setq ausrichtung "H"))
		((= format_x 1189.0) (= format_y 841.0) (setq format "ISO A0") (setq ausrichtung "Q"))
	)
	(if (= ausrichtung "H") (setq hp_format (strcat "Übergröße: " format "  (Hochformat)"))
	(if (= ausrichtung "Q") (setq hp_format (strcat "Übergröße: " format "  (Querformat)"))
	(if (= format "ISO A0") (setq hp_format "Übergröße: ISO A0 "))
	(setq ca_filename (strcat (getvar "dwgprefix") layout "_" (substr format 5 2) "_für_CW8400PG.plt"))
	(setq hp_filename (strcat (getvar "dwgprefix") layout "_" (substr format 5 2) "_für_HP1050C.plt"))
	(command "-plot" "j" layout "Canon W8400PG" format "M" ausrichtung "N" "L" "1=1" "-6.00,-6.00" "J" "andreas.ctb" "J" "J" "N" "N" "J" ca_filename "N" "J")
	(command "-plot" "j" layout "HP DesignJet 1050C" hp_format "M" ausrichtung "N" "L" "1=1" "0.00,0.00" "J" "andreas.ctb" "J" "J" "N" "N" "J" hp_filename "N" "J")
	(princ)
)