Clipper/FiveWin - Problema con

Hola,

Tengo un problema con una subrutina que me hicieron hace tiempo raa un programa.
Resulta que para imprimir codigos de barras tengo esta subrutina adaptada a una impresora canon pero ya no dispongo de esa impresora y tengo una HP Laserjet 5L con cable paralelo, pero no se cambiar la subrutiina para que me imprima bien.

Alguna idea?

************************ CODIGO BARRAS PARA IMPRESORA CANON
@ PROW(),0 SAY CHR(15)
@ PROW(),PCOL() SAY CHR(27)+"1"
m=val(xnumero)
m=eandots1(m)
n=LEN(m)
FOR i=1 TO 3
@ PROW()+1,rj SAY CHR(27)+"Z"+CHR(n%256)+CHR(INT(n/256))+m
NEXT
@ PROW(),PCOL() SAY CHR(27)+"3"+CHR(39)
@ PROW()+1,rj SAY xnumero
@ PROW(), 0 SAY CHR(18)+ CHR(27)+"2" && Esp vert= 1/6 "
************************ CODIGO BARRAS PARA IMPRESORA CANON

* la linea 3 cambia la altitud de impresion y la 13 vuelve a la normal
* la linea 4 da un codigo de escape a la impresora (supongo para pasar a gráfico)
* la linea 5 recoge el numero a imprimir en la variable m
* la linea 6 convierte a grafico la variable m
* la linea 7 pone a la variable n la longitud del grafico
* la linea 9 escribe el grafico (3 veces = altura del grafico codigo barras)
* la linea 11 da un codigo escape a la impresora (supongo para quitar el modo grafico)
* la linea 12 escribe el numero con normal debajo del grafico

* lo que no tengo ni idea es como cambiar las lineas 4, 9 i 11 para otra impresora,
* con la 3 y la 13 no creo que tuviera problemas para cambiarlas