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]