Oh damn, stimmt, dann müssen wir
GetDeviceCaps anzapfen.
Delphi-Quellcode:
Printer.BeginDoc;
Printer.Canvas.Font := Memo1.Font;
Text := Memo1.Text; // Text IS string
brect := rect(10,10,GetDeviceCaps(Printer.Canvas.Handle,HORZRES)-11,GetDeviceCaps(Printer.Canvas.Handle,VERTRES)-11); //brect IS TRect
DrawText(Printer.Canvas.Handle, @Text[1],Length(Text),brect,DT_LEFT);
Printer.EndDoc;
So sollts dann aber klappen.
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