Delphi-Quellcode:
procedure Textausgabe(x,y:Double; GibText:String);
begin
printer.canvas.textout(getx(x)+getdevicecaps(Printer.Canvas.Handle, PHYSICALOFFSETX),
gety(y)+getdevicecaps(Printer.Canvas.Handle, PHYSICALOFFSETY),GibText);
end;
Hoffe du kannst was damit anfangen