Text Drucken unter Delphi

[snapman]

Da mir viele hier sehr gut helfen, dachte ich ich kann vielleicht auch mal Helfen.
Viele Fragen sich wie man einfach mal einen Text ausdruckt, daher hier ein kleines Beispiel:

Delphi-Quellcode:

uses
  Printers;

{...}

procedure Ausdrucken;
begin
  printer.begindoc;
  with Printer.Canvas do begin
    Font.Size := 21;
    TextOut(50, 2, 'Überschrift');
    TextOut(50, 150, '------------ ');
    font.size := 14;
    TextOut(50, 500, ' ZEILE 1');
    TextOut(1250, 500, 'ZEILE 2');
  end;
  printer.enddoc;
end;

Die Zahlen sind jeweils die X- und Y-Koordinate auf der ausgedruckten Seite.

[edit=Christian Seehase]Delphi-Tags gesetzt. Mfg, Christian Seehase[/edit]
[edit=Chakotay1308]Code-Stil angepasst und Beschreibung ergänzt.. Mfg, Chakotay1308[/edit]