Ver Mensaje Individual
  #2  
Antiguo 04-07-2007
Raptor Raptor is offline
No confirmado
 
Registrado: jul 2003
Ubicación: Santo Domingo R.D.
Posts: 105
Reputación: 0
Raptor Va por buen camino
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...
Responder Con Cita