Text Drucken unter Delphi

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:

zusammenfalten · markieren

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]

Text Drucken unter Delphi

Text Drucken unter Delphi

Forumregeln