Drucken ohne Printer.Canvas.TextOut

[Shaw Taylor]

Hi...

Ich möchte gerne vorhandene Text-Dateien ausdrucken.

Gibt es eine elegantere Methode als Printer.Canvas.TextOut.

Ich meine wo man nur das Verzeichnis und die Text-Datei als Parameter übergibt.

[lukas ruetz]

hi!

ja - du kannst deinen text in ein RichEdit laden -RichEdit1.LoadFromFile('mytext.txt') - und dieses dann ganz simpel drucken - RichEdit1.Print

ciao
lukas.root

[Karsten Rauer]

Ergänzungen:

Die Installierten Drucker lassen sich abfragen und zwischenspeichern

procedure Main.FormCreate(Sender: TObject);
begin
ComboBox1.Items:=Printer.Printers;
end;

procedure Main.ComboBox1Change(Sender: TObject);
begin
PRINTER:=ComboBox1.ItemIndex;
end;

Printer.PrinterIndex:=PRINTER; {auszugebener Drucker}
RichEdit1.Text:=LoadFromFile('mytext.txt')
RichEdit1.Print('');
Printer.PrinterIndex:=-1; {wieder auf Standarddrucker stellen

[Lannes]

Hallo,

ob es eleganter ist muss Du entscheiden.

Mit folgendem Code kann man eine Datei mit Write.exe auf dem Standarddrucker ausgeben lassen, man sieht nur kurz eine Druckanzeige:

!!! shellapi in Uses einbinden !!!
ShellExecute(Form1.Handle,nil,'write.exe',PChar('c :\Temp\eine.txt /p'),nil,SW_HIDE)

[markus lemcke]

nur so aus neugierde!
funzt das bei jedem windoof