(defvar fn "it:keith;test-ti855")

(defvar pn '(:ti855 "it"))


(hardcopy-file fn :printer pn
	       :title-heading "this is a title")

(defmacro test(qual cpi)
  `(hardcopy-file fn
		  :printer pn
		  :quality ,qual
		  :characters-per-inch ,cpi))

(test nil 12)
(test t 12)

(test nil 10)
(test t 10)