Перед передачей байта в принтер надо проверить состояние линии "BUSY" и если все в порядке, то передавать байт.
При чтении состояния принтера проверяются биты:
If (b and $B8) = $90 then { all's well } else begin If (b and $20) = $20 then { no paper } If (b and $10) = 0 then { off line } If (b and $80) = 0 then { busy } If (b and $08) = $08 then { i/o error} end;