Bases de Datos - Problema para imprimr

Tengo un programa I,PRG para imprimir una ficha. Funciona en una impresora Epson Stylux EX, pero ahora se ha estropeado. Intento imprimir en una HP Laserjet 6L y sale
solamente una línea de la ficha por hoja y no respeta los caracteres en negrita. Envío el programa a ver si alguien me lo puede resolver.

SET TALK OFF
SET DEVICE TO PRINT
*@ prow(),0 say chr(27)+chr(54)
@ 2, 10 say chr(27)+chr(69)
@ 2, 2 SAY "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
@ 3, 2 SAY "º MARCA:"
@ 3, 32 SAY "CONTRASE¥A DE HOMOLOGACION:"
@ 3, 76 say chr(27)+chr(70)
@ 3, 10 say FICHA->MARCA
@ 3, 59 say FICHA->C_HOMOLOGA
@ 3, 76 say chr(27)+chr(69)
@ 3, 76 SAY "º"
@ 4, 2 SAY "ÌÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹"
@ 5, 2 SAY "º º º DENOMINACION º PARTE FIJA º"
@ 6, 2 SAY "º TIPO º VARIANTE º COMERCIAL º VIN º"
@ 7, 2 SAY "ºÄÄÄÄÄÄÄÄÄÄÄÄĺÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĺÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĺÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĺ"
@ 8, 2 SAY "º"
@ 8, 16 SAY "º"
@ 8, 35 SAY "º"
@ 8, 56 SAY "º"
@ 8, 10 say chr(27)+chr(70)
@ 8, 5 say FICHA->TIPO
@ 8, 19 say FICHA->VARIANTE
@ 8, 37 say FICHA->D_COMERCIA
@ 8, 58 say FICHA->P_F_VIN
@ 8 , 75 say chr(27)+chr(69)
@ 8, 76 SAY "º"
@ 9, 2 SAY "ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹"
@ 10, 2 SAY "ºOBSERVACIONES:"
@ 10, 10 say chr(27)+chr(70)
@ 10, 19 say FICHA->OBSERBA1
@ 10, 75 say chr(27)+chr(69)
@ 10, 76 SAY "º"
@ 11, 2 SAY "º"
@ 11, 10 say chr(27)+chr(70)
@ 11, 19 say FICHA->OBSERBA2
@ 11, 75 say chr(27)+chr(69)
@ 11, 76 SAY "º"
@ 12, 2 SAY "ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹"
@ 13, 2 SAY "º ESQUEMA Y DIMENSIONES º"
@ 14, 2 SAY "ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹"
X=1
do while x<25
@ 14+x, 2 SAY "º º"
x=x+1
enddo
@ 38, 2 SAY "º º"
@ 39, 2 SAY "º º"
@ 40, 2 SAY "º º"
@ 41, 2 SAY "º ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ º"
@ 42, 2 SAY "º ³ DOCUMENTO NO VALIDO SI NO ES EL ORIGINAL ³ º"
@ 43, 2 SAY "º ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ º"
@ 44, 2 SAY "º º"
@ 45, 2 SAY "º A- Longitud total:"
@ 45, 10 say chr(27)+chr(70)
@ 45, 44 say FICHA->L_TOTAL
@ 45, 75 say chr(27)+chr(69)
@ 45, 76 SAY "º"
@ 46, 2 SAY "º B- Distancia entre ejes:"
@ 46, 10 say chr(27)+chr(70)
@ 46, 44 say FICHA->D_E_EJES
@ 46, 75 say chr(27)+chr(69)
@ 46, 76 SAY "º"
@ 47, 2 SAY "º C- Voladizo trasero:"
@ 47, 10 say chr(27)+chr(70)
@ 47, 44 say FICHA->V_TRASERO
@ 47, 76 say chr(27)+chr(69)
@ 47, 76 SAY "º"
@ 48, 2 SAY "º D- Altura total:"
@ 48, 10 say chr(27)+chr(70)
@ 48, 44 say FICHA->AL_TOTAL
@ 48, 76 say chr(27)+chr(69)
@ 48, 76 SAY "º"
@ 49, 2 SAY "º E- Anchura total:"
@ 49, 9 say chr(27)+chr(70)
@ 49, 44 say FICHA->AN_TOTAL
@ 49, 76 say chr(27)+chr(69)
@ 49, 76 SAY "º"
@ 50, 2 SAY "º F- V¡a anterior:"
@ 50, 10 say chr(27)+chr(70)
@ 50 , 44 say FICHA->V_ANTERIOR
@ 50, 76 say chr(27)+chr(69)
@ 50, 76 SAY "º"
@ 51, 2 SAY "º G- V¡a posterior:"
@ 51, 10 say chr(27)+chr(70)
@ 51, 44 say FICHA->V_POSTERIO
@ 51, 76 say chr(27)+chr(69)
@ 51, 76 SAY "º"
@ 52, 2 SAY "º º"
@ 53, 2 SAY "ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹"
@ 54, 2 SAY "º PESOS TECNICOS MAXIMOS ADMISIBLES/MAXIMOS AUTORIZADOS º"
@ 55, 2 SAY "ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹"
@ 56, 2 SAY "º º"
@ 57, 2 SAY "º 1 - Total:"
@ 57, 10 say chr(27)+chr(70)
@ 57, 44 say FICHA->TOTAL
@ 57, 76 say chr(27)+chr(69)
@ 57, 76 SAY "º"
@ 58, 2 SAY "º 2 - Primer eje:"
@ 58, 10 say chr(27)+chr(70)
@ 58, 44 say FICHA->P_EJE
@ 58, 76 say chr(27)+chr(69)
@ 58, 76 SAY "º"
@ 59, 2 SAY "º 3 - Segundo eje:"
@ 59, 10 say chr(27)+chr(70)
@ 59, 44 say FICHA->S_EJE
@ 59, 76 say chr(27)+chr(69)
@ 59, 76 SAY "º"
@ 60, 2 SAY "º 4 - Tara nominal:"
@ 60, 10 say chr(27)+chr(70)
@ 60, 44 say FICHA->T_NOMINAL
@ 60, 76 say chr(27)+chr(69)
@ 60, 76 SAY "º"
@ 61, 2 SAY "º 5 - PMR cF/sF:"
@ 61, 10 say chr(27)+chr(70)
@ 61, 44 say FICHA->PMR
@ 61, 76 say chr(27)+chr(69)
@ 61, 76 SAY "º"
@ 62, 2 SAY "º 6 - PMC:"
@ 62, 10 say chr(27)+chr(70)
@ 62, 44 say FICHA->PMC
@ 62, 76 say chr(27)+chr(69)
@ 62, 76 SAY "º"
@ 63, 2 SAY "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
@ 63, 76 say chr(27)+chr(70)
@ 0,0 say ''
SET DEVICE TO SCREEN
return

Un cordial saludo agradeciendo de antemano las molestias,

Hola Jose. Tu programa esta bien, lo que no esta bien son las secuencias de "ESCAPE" para impresion, la impresora HP no utiliza los mismos codigos de impresion que la impresora de matrix de puntos. Es por eso que no te da el resultado deseado. Verifica en la documentacion de la impresora la secuencia que debes de enviar para ese tipo de impresora y estudia el lenguje "PCL" que es el que utiliza esa impresora, a menos que tenga opcion de configuracion Postscript.

NOTA: Es mejor que pongas tu pregunta en la seccion correspondiente a Clipper o xBase.