Impresión lenta en Printer.Canvas

[Paoti]

hola...

ahi te va un ejemplod de como imprimir directamente en el puerto de la impresora

var
f : textFile;
ruta, cod, des, can, tot : String;
begin
     AssignFile(f,'lpt1');
     try
        write( f );
        writeln(F, 'codigo,descripcion,cantidad,total');
        consul.First;
        while not consul.eof do
          begin
          cod := tabla.fieldbyname('Codprov').AsString;
          des := tabla.fieldbyname('descripcion').AsString;
          can := consul.fieldbyname('cantidad').AsString;
          tot := consul.fieldbyname('total').AsString;
          writeln(f, cod + ',' + des + ',' + can + ',' + tot);
          consul.Next;
          end;
     finally
        CloseFile( f );
        Eti.caption := eti.caption + '      Finalizado....!';
     end; // del try
end;

la pista es declarar la variable Textfile, abrir tu archivo (que en realidad es el puerto lpt1, y mandar tu informacion, y es super rapido....


que estes bien