[dionisiopz]

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var Impresora : TextFile;
Begin
     assignFile(Impresora, 'LPT1'); //Asigna el puerto a la variable "Impresora"
     //'LPT1' indica el puerto al que se conecta la impresora, 
     //ej.: 'COM1', 'COM2'

     rewrite(Impresora);  //apertura del archivo, creacion
 
     //Los siguientes son comandos ESC. ESC o escape es el caracter #27
     //Comando para cambiar tipo de letra: ESC ! n
     Write(Impresora, #27);//ESC, Write(Impresora, ESC);
     Write(Impresora, '!');// ! , Write(Impresora, !);
     Write(Impresora, #1); //Write(Impresora, n); #n
     {n=0 : 10cpp
       n=1 : 12cpp
       n=2 : proporcional
       n=4 :comprimido
       n=8 : negrita
       n=16 :doble altura
       n=32:doble anchura
       n=64 : cursiva
       n=128 : subrayado}
     Writeln(Impresora, 'TIENDA DE ROPA LAS VEGAS');//Texto a imprimir
     Writeln(Impresora, '123456789012345678901234567890');
     Writeln(Impresora, '111111111111111111111111111111');
     Writeln(Impresora, 'abcdefghijklmnopqrstuvxyzABCDE...');
     Writeln(Impresora, '______________________________');
     Writeln(Impresora, '------------------------------');
     Writeln(Impresora, '?? !"#?%&''()*+,-./0123456789:');
     Writeln(Impresora, ';<=>?@ACD..xyz{|}~¦ÇüéâäàåçêëèïîìÄ');
     Writeln(Impresora, 'ÖÉæÆôöòûùÿÖÜø£Ø׃áíóúñѪº¿®¬½¼¡«»¦');
     Writeln(Impresora, '¦ÂÀ©¦¦++¢¥++--+-+ãÃ++--¦-+¤ðÐÊËÈiÍÎ');
     Writeln(Impresora, 'Ï++¦_¦Ì¯ÓßÔÒõÕµþÞÚÛÙýݯ´­±=¾¶§÷¸°¨·');
     Writeln(Impresora, '¹³²¦ ');
     Writeln(Impresora, 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ'); //Linea Doble
     Writeln(Impresora, 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ'); //Linea sencilla.

     //Para avance de unidades mínimas comando: ESC J n
     //Ejemplo:
     Write(Impresora, #27);//ESC
     Write(Impresora, 'J');// J
     Write(Impresora, #200);// n=número de unidades mínimas

     //Para avance de líneas comando: ESC d n
     //Ejemplo:
     Write(Impresora, #27);// ESC
     Write(Impresora, 'd');// d
     Write(Impresora, #10);// n= número de líneas

     //Para corte del papel comandos:
     // ESC i
     // ESC m
     Write(Impresora, #27);
     Write(Impresora, 'm');// m= corte parcial, en teoria i= corte total

     CloseFile(Impresora); //cerrar el archivo
end;