Impresion En Tsp700

[Raptor]

Hola kapcomx
Mira nunca he usado esa impresora pero este tipo de impresora son igual a la hora de imprimir directamente en ellas.

Si la impresion es atravez del driver que ella trae puedes usar Quickreport o cualquiera de los reporteadores que tenemos.

Si es impresion directa entonces aqui te dejo una muestra.

procedure Imprime(Const aPuerto:String ='LPT1');
VAR
nPrn : TextFile;
begin
AssignFile(nPrn, aPuerto);
Rewrite(nPrn);
WriteLn(nPrn,'Imprime lo que quiero de esta manera');
WriteLn(nprn,'Maximo 40 carateres ');
WriteLn(nPrn,'Esto depende de tu impresora');
WriteLn(nPrn,'de cuanto soporte');
//esta linea imprime negrita , esto depende de tu impresora por eso debe de buscar los codigos correspondiente a cada impresora.
WriteLn(nPrn,chr($1B)+chr($45)+'Negrita linea'+chr($1B)+chr($46)); //NEGRITA
CloseFile(nPrn);

end;

Suerte , espero haberte ayudado...