Excel linked table text prints gray not black

[Johntosh]

As I data link cells to my table in AutoCAD, and send to print, the text is gray.

 

In Excel I set the font to black Icocp2.

 

Linked to AutoCAD, the cell text style shows the style as black ICOCP2 (note upper case). However it prints out mid-gray. The only solution I have found is to double-click each cell to get into MTEXT and replace the style defined by ACAD in bringing in the data - ICOCP2 - to the already defined Icocp2 (note lower case). This works but is rather long-winded. Changing en masse in properties has no effect.

 

Is there a quick solution without having to write some LISP?

[Johntosh]

Morning

 

(defun delete-inline-styling (str / l i tru)

(setq l (strlen str) tru 1 i 0)

(while (= tru 1)

(if (eq (substr str l 1) ";")(setq tru nil)(setq l (1- l) i (1+ i)));if

);w

(setq str (substr str (+ l 1)(+ i 1)))

);d

(defun get-table-mtexts (/ sset the-table cols rows col row datum new-datum)

(vl-load-com)

(prompt "\n\>>>\tSelect Table\t>>>\n")

(setq sset (ssget "_:S" '((0 . "ACAD_TABLE"))))

(setq the-table (vlax-ename->vla-object (ssname sset 0)) cols (vla-get-columns the-table) rows (vla-get-rows the-table))

;(if (eq :vlax-false (vla-get-titlesuppressed the-table))(setq rows (1- rows)));if

;(if (eq :vlax-false (vla-get-headersuppressed the-table))(setq rows (1- rows)));if

(setq row 0)

(repeat rows

(setq col 0)

(repeat cols

(setq datum (vla-gettext the-table row col))

(setq new-datum (delete-inline-styling datum))

(vla-settext the-table row col new-datum)

(setq col (1+ col))

);r

(setq row (1+ row))

);r

);d

(get-table-mtexts)

 

Regards