Hallo,
Delphi-Quellcode:
Printer.Canvas.Font := Memo1.Font;
for Line := 0 to Memo1.Lines.Count - 1 do
Printer.Canvas.TextOut(10, Round(Line * Printer.Font.Size * 1.25), Memo1.Lines[Line]);
ersetze deinen code einfach damit. für anspruchsvollere sachen die
gdi-funktion
DrawText auschecken
PS: Damit greifst du nicht mehr auf die alten Lineprinter-Schnittstellen zu und es sollte auch über Netzwerk funktionieren. Hoffe ich.
Lukas Erlacher
Suche Grafiktablett. Spenden/Gebrauchtangebote willkommen.
Gotteskrieger gesucht!
For it is the chief characteristic of the religion of science that it works. - Isaac Asimov, Foundation I, Buch 1