PCL y Qbasic
Publicado por Jesus (2 intervenciones) el 17/07/2001 21:31:10
Hola,
Estoy adaptando un viejo programa MsDos, para que imprima en una HP, hago la pruebas con una Deskjet 930C . Los comandos para activar la letra comprimida, negrita que envio son:
LPRINT chr$(27)+chr$(38)+chr$(107)+chr$(50)+chr$(83): rem Activa comprimida
LPRINT chr$(27)+chr$(38)+chr$(107)+chr$(52)+chr$(83): rem Desactiva comprimida
LPRINT chr$(27)+chr$(40)+chr$(115)+chr$(51)+chr$(66): rem Activa negrita
LPRINT chr$(27)+chr$(40)+chr$(115)+chr$(45)+chr$(53)+chr$(66): rem Desactiva negrita
y el resultado que obtengo es satisfactorio pero no lo consigo para la letra doble, he probado con los siguientes comandos:
LPRINT chr$(27)+chr$(40)+chr$(115)+chr$(50)+chr$(52)+chr$(83): rem deberia activar expandida
LPRINT chr$(27)+chr$(40)+chr$(115)+chr$(A)+chr$(86): rem donde A es el tamaño en puntos
Agradezco anticipadamente vuestra ayuda.
Gracias.
Jesús
Estoy adaptando un viejo programa MsDos, para que imprima en una HP, hago la pruebas con una Deskjet 930C . Los comandos para activar la letra comprimida, negrita que envio son:
LPRINT chr$(27)+chr$(38)+chr$(107)+chr$(50)+chr$(83): rem Activa comprimida
LPRINT chr$(27)+chr$(38)+chr$(107)+chr$(52)+chr$(83): rem Desactiva comprimida
LPRINT chr$(27)+chr$(40)+chr$(115)+chr$(51)+chr$(66): rem Activa negrita
LPRINT chr$(27)+chr$(40)+chr$(115)+chr$(45)+chr$(53)+chr$(66): rem Desactiva negrita
y el resultado que obtengo es satisfactorio pero no lo consigo para la letra doble, he probado con los siguientes comandos:
LPRINT chr$(27)+chr$(40)+chr$(115)+chr$(50)+chr$(52)+chr$(83): rem deberia activar expandida
LPRINT chr$(27)+chr$(40)+chr$(115)+chr$(A)+chr$(86): rem donde A es el tamaño en puntos
Agradezco anticipadamente vuestra ayuda.
Gracias.
Jesús
Valora esta pregunta
0