hola...
ahi te va un ejemplod de como imprimir directamente en el puerto de la impresora
Código:
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