Imprimir un archivo de texto
 

Hola estoy haciendo una aplicación en delphi 7, y necesito que al pulsar un botón me imprima en la impresora un archivo de texto llamado 'etiqueta.txt' (que se encuentra en el directorio de la aplicación) directamente sin que me pida la impresora, como puedo hacer?

Creo que puedes imprimirlo directamente mediante la API, pero en todo caso, desde delphi, lo cargas en un richedit y llamas al método print.

Muchas son las formas de hacerlo...

Código Delphi [-]
var
  FS,
  LP: TFileStream;
begin
  FS := TFileStream.Create('c:\Fede.txt', fmOpenRead);
  try
    LP := TFileStream.Create('LPT1', fmOpenWrite);
    try
      LP.CopyFrom(FS, FS.Size);
    finally
      LP.Free;
    end;
  finally
    FS.Free;
  end;
end;

Y tambien hay manera de escoger la impresora??