Re: Drucken einer .txt Datei
Delphi-Quellcode:
var tmp : TStringlist;
begin try tmp := TStringList.Create; tmp.LoadFromFile('Entsprechende Datei'); with Printer do begin BeginDoc; Canvas.TextOut(0, 0,tmp.text); EndDoc; end; finally FreeAndNil(tmp); end; end; |
Re: Drucken einer .txt Datei
Hi,
Aber das Property TEXT sollte eigentlich die Formatierung, in diesem Fall die Umbrüche (#13#10) eigentlich enthalten.... |
Re: Drucken einer .txt Datei
Probier mal Shellexecute mit dem Verb 'print'.
|
Re: Drucken einer .txt Datei
Irgendwie funktioniert das alles nicht.
bei dem canvas.textout da wir die Formatierung eben nicht erhalten, egal wie ichs probiert hab! was ist das mit dem shellexecute? sagt mit so jetzt nix... Tut mir leid, dass ich soviel Stress mache, aber ich komm einfach nicht dahinter. Wärs nicht vielleicht doch sinnvoller einen printdialog zu verwenden? mfg Kiaro |
Re: Drucken einer .txt Datei
Moin Kiaro,
Also das TEXT-Property der TStringList gibt den Text schon mit Zeilenumrüchen aus, doch scheinbar erkennt das TextOut nicht. Ich habe das jetzt so versucht und es klappt:
Delphi-Quellcode:
Edit: Der Print-Dialog ist wirklich nur der Dialog selber, ums drucken musst du dich selber kümmern. ;-)
sl := TStringList.Create;
sl.Add('sss'); sl.Add('test'); with Printer do begin BeginDoc; // Hier Font-Einstellungen vornehmen Canvas.Font.Name := 'Verdana'; // Höhe des Textes berechnen... h := Canvas.TextHeight('tt'); for i:=0 to sl.Count -1 do Canvas.TextOut (0, h*i, sl[i]); EndDoc; end; |
Re: Drucken einer .txt Datei
Vielen Dank!
Damit hats jetzt endlich funktioniert :thuimb: Kiaro |
Re: Drucken einer .txt Datei
Gern geschehen ;-)
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:51 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz