Ver Mensaje Individual
  #9  
Antiguo 05-08-2008
[coso] coso is offline
Miembro Premium
 
Registrado: may 2008
Ubicación: Girona
Posts: 1.678
Reputación: 0
coso Va por buen camino
no es mio el codigo de URaw, solo lo uso. Te pongo una funcion

Código Delphi [-]
procedure Enviar_ticket(s : string);
var
        xPrn: TRawPrint;
        i : integer;
begin
        xPrn := TRawPrint.Create;
        xPrn.PrinterName := impres_tick; 
// nombre de la impresora. Lo puedes encontrar correctamente en la 
// variable printer. Pulsa f1 buscando printer para mas informacion.
// el URaw no es mas que una simplificacion del uso de printer para texto

        xPrn.Document := 'envio';

        if xPrn.Open = False then
        raise exception.Create('Error en impresora.');

        xPrn.Write(s);
        xPrn.Write(#13#10#65#27#57);

        xPrn.Close;
        xPrn.Free;
end;
Responder Con Cita