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 Notevi]

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...


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??