Clipper 5.x

Comandos comunes en lenguaje PCL

 

Función Comando Opciones (Variable)
Restablecer Chr(27) + "E"
Escape + E mayúscula.
Ninguna
Número de Copias Chr(27) + "&l" + Variable + "X"
Escape + ampersand + ele minúscula + variable + X mayúscula
1 a 999
Tamaño de papel Chr(27) + "&l" + Variable + "A"
Escape + ampersand + ele minúscula + variable + A mayúscula
1 - Exec
2 - Carta
3 - Legal
25 - A5
26 - A4
Orientación Chr(27) + "&l" + Variable + "O"
Escape + ampersand + ele minúscula + variable + Ó mayúscula
0 - Prolongada (normal)
1 - Apaisada
Margen Superior Chr(27) + "&l" + Variable + "E"
Escape + ampersand + ele minúscula + variable + E mayúscula
Variable = número de líneas
Margen Inferior Chr(27) + "&l" + Variable + "F"
Escape + ampersand + ele minúscula + variable + F mayúscula
Variable = número de líneas
desde margen superior.
Margen Izquierdo Chr(27) + "&a" + Variable + "L"
Escape + ampersand + a minúscula + variable + L mayúscula
Variable = número de columna
Margen Derecho Chr(27) + "&a" + Variable + "M"
Escape + ampersand + a minúscula + variable + M mayúscula
Variable = número de columna
Desde margen izquierdo.
Juego de caracteres Chr(27) + "(" + Variable
Escape + Paréntesis abierto + variable
8U - Roman-8 de HP
10U - IBM PC-8 Pag.Cód 437
12U - IBM PC-850
8M - Math8
19U - Latin 1 Win 3.1
9E - Latin 2
5T - Latin 5
579L - Wingding
Espaciado Chr(27) + "(s" + Variable + "P"
Escape + Paréntesis abierto + ese minúscula + variable + P
Mayúscula
0 - Fijo
1 - Proporcional
Paso Chr(27) + "(s" + Variable + "H"
Escape + Paréntesis abierto + ese minúscula + variable + H
Mayúscula
Variable = Caracteres por
pulgada
Altura Chr(27) + "(s" + Variable + "V"
Escape + Paréntesis abierto + ese minúscula + variable + V
Mayúscula
Variable = Puntos
Estilo Chr(27) + "(s" + Variable + "S"
Escape + Paréntesis abierto + ese minúscula + variable + S
Mayúscula
0 - Sólida
1 - Italica
4 - Condensada
5 - Italica condensada
Peso del trazo Chr(27) + "(s" + Variable + "B"
Escape + Paréntesis abierto + ese minúscula + variable + B
Mayúscula
de 0 a 4 (clara a extranegra)

A continuación algunas funciones PCL para Laser y chorro de tinta donadas por
Jhonny Vargas P. Santiago de Chile
(Microsoft Most Valuable Professional)

** Esta funcion sirve para retroceder algunas lineas cuando uno imprime
secuencialmente en la impresora, esto pasa cuando sobre pasa las 60 lineas y
necesitas imprimir algún dato por ejemplo en la 50, le debes pasar la
cantidad de lineas que deseas devolverte.

Function Retrocede(linea)
return chr(27)+'&'+strzero(linea,4)+'R'


** Esta función te deja la letra con negrita las palabras que acontinuación
imprimas

Function letranegrita()
return chr(27)+'(s+4B'


** Esta función te deshabilita la función anterior.

function letranormal()
return chr(27)+'(s0B'

** Muchas veces, necesitamos imprimir algo en una posición fija,
independiente de donde se encuentre el cursor de la impresión, las
siguientes funciones nos permiten localizarnos en un punto e imprimir lo que
queramos.

Function posx(nume)
return chr(27)+'*p'+alltrim(str(nume,8))+'X'

Function posy(nume)
return chr(27)+'*p'+alltrim(str(nume,8))+'Y'


** Para variar un poco de letra, se debe pasar el tamaño y listo.

Function fnClaredonCondensed(tam)
return chr(27)+'(s1p+'+alltrim(str(tam,8))+'v4s3b4140T'


 

Esta sección sobre CA-Clipper está coordinada íntegramente por Diego Lucio D'Onofrio


la Luna del Guille o... el Guille que está en la Luna... tanto monta...

Estadísticas desde el 01/Nov/2002 23:15