Ver Mensaje Individual
  #4  
Antiguo 28-07-2007
Avatar de eduarcol
[eduarcol] eduarcol is offline
Miembro Premium
 
Registrado: ago 2003
Ubicación: En los estados Zulia y Merida de Venezuela
Posts: 4.151
Reputación: 25
eduarcol Va por buen camino
esta es una funcion que cree con codigo del club y le paso un tstringlist donde cada liinea es una linea del papel

Código Delphi [-]
procedure Imprimir(Puerto: String; Contenido: TStringList);
var
   nidx: Integer;
   Impresora: TextFile;
begin
   AssignFile(Impresora, Puerto);
   Rewrite(Impresora);
   for nIdx := 0 to Contenido.Count - 1 do
      WriteLn(Impresora, Contenido.Strings[nIdx]);
   System.CloseFile(Impresora);
end;
__________________
...Yo naci en esta ribera del arauca vibr@d0r
Soy hermano de la espuma,
de la garza, de la rosa y del sol...
Viva Venezuela
Responder Con Cita