Forum: Object-Pascal / Delphi-Language
Delphi
by N30N,
12. Nov 2007
var
Zeile: Integer;
PrintText: TextFile;
begin
Printer.Canvas.Font.size :=15;
AssignPrn(PrintText);
Rewrite(PrintText);
Printer.Canvas.Font := Memo1.Font;
for Zeile := 0 to Memo1.Lines.Count - 1 do
Writeln(PrintText, Memo1.Lines);
Forum: Object-Pascal / Delphi-Language
Delphi
by N30N,
12. Nov 2007
Super! :)
Habs raus, richtiger Code müsste also folgender sein:
var
Zeile: Integer;
PrintText: TextFile;
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by N30N,
12. Nov 2007
var
Zeile: Integer;
PrintText: TextFile;
begin
AssignPrn(PrintText);
Rewrite(PrintText);
Printer.Canvas.Font := Memo1.Font;
for Zeile := 0 to Memo1.Lines.Count - 1 do
Writeln(PrintText, Memo1.Lines);
CloseFile(PrintText);