[Lazarus-es] imprimir tickeadora: ticket y testigo

[José Mejuto]

El 27/09/2012 20:12, Paola Bruccoleri escribió:

>>> // impresion dual en ticket/testigo
>>> @ 0,0 say chr(27)+"@"+CHR(27)+"c0"+chr(3)+chr(27)+"!"+chr(1)
>>>
>>> @0,0   say PADC(alltrim(i_razon),38)  // impresión en ticket
>>> @0,42 say PADC(alltrim(i_razon),38) // impresión en testigo
[...]
> clipper (pero en harbour es lo mismo..)
> imprimir es muy sencillo; solo indicas fila/col y ya está.. nada de
> andar armando cadenas de caracteres!

Hola,

Si usais mucho estas funciones se puede hacer un "driver" de tickeadora 
que se maneje algo así:

var
   t: TTickadora;
   Lineas: TStringList;
   j: integer;
begin
   T:=TTickadora.Create(AnchoEnChars);
   T.Write(X,Y,'Prueba 1');
   T.Write(X,Y+1,'Prueba 2');
   T.DuplicateRight;
   T.PrintEverything;

   //O en vez de imprimir directamente

   Lineas:=T.GetLines;
   for j = 0 To Lineas.Count-1
     PrintRaw(Lineas[j]+LineEnding);
   end;
   T.Free;
end;