Imprimir un archivo de texto

[davidgaldo]

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?

[Casimiro Noteví]

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.

 procedure TForm1.bt1Click(Sender: TObject);
 begin
   mm1.Lines.LoadFromFile('etiquetas.txt');
   mm1.Print('');
 end;

[delphi.com.ar]

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;

[davidgaldo]

Y tambien hay manera de escoger la impresora??