Print-Befehl auch bei Netzwerkdruckern

[DGL-luke]

Oh, Sorry:

Delphi-Quellcode:

Printer.BeginDoc;

Printer.Canvas.Font := Memo1.Font;
for Line := 0 to Memo1.Lines.Count - 1 do
  Printer.Canvas.TextOut(10, Round(Line * Printer.Canvas.Font.Size * 1.25), Memo1.Lines[Line]);

Printer.EndDoc;