Un Ejemplo:
procedure TForm1.Button1Click(Sender: TObject);
Var
MyPrinter: TextFile;
begin
AssignFILE(MyPrinter,'LPT1');
ReWrite(MyPrinter);
Write(MyPrinter, CHR(27) + CHR(64)); // Inicializar Impresora
Write(MyPrinter, CHR(27)+CHR(67)+CHR(44)); // Fijar Tamaño en Lineas
Write(MyPrinter,CHR(27)+ CHR(103)); // Tipo de Letra Chicas
Write(MyPrinter,CHR(27)+CHR(197)); // Negrita
Write(MyPrinter,CHR(27)+CHR(179)+CHR(28)); // Espacio entre Lineas
Write(MyPrinter,' ESTA ES UNA PRUEBA ');
Write(MyPrinter,' DE IMPRESION! ');
Write(MyPrinter,#12); // Expulsar la Hoja
System.CloseFile(MyPrinter);
End;
__________________
'seY sbaJ, K28D4! 52:11 - > Ok
|