Programación en Clipper

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'