1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

procedure TForm1.Button1Click(Sender: TObject);
var a, b, c, d, e, f, g, h, cal, vkor, hkor : real;
begin
  cal := 229;
  vkor := strtofloat(edvkor.Text);
  hkor := strtofloat(edhkor.Text);
    Printer.Orientation := poLandscape;
    Printer.BeginDoc;
    Printer.Canvas.Font.Name := 'Arial';
    Printer.Canvas.Font.Size := 13;
    a := 12.58 + vkor;
    Printer.Canvas.TextOut((1580 + trunc(hkor*cal)),trunc((a-0.31)*cal),edAbsName.Text);  //von Textoberkante
    b := 13.25 + vkor;
    Printer.Canvas.TextOut((1580 + trunc(hkor*cal)),trunc((b-0.31)*cal),edAbsStrasse.Text);  //von Textoberkante
    c := 13.93 + vkor;
    Printer.Canvas.TextOut((1580 + trunc(hkor*cal)),trunc((c-0.31)*cal),edAbsPLZ.Text);  //von Textoberkante
    Printer.Canvas.TextOut((2127 + trunc(hkor*cal)),trunc((c-0.31)*cal),edAbsOrt.Text);  //von Textoberkante
    d := 17.45 + vkor;
    Printer.Canvas.TextOut((3230 + trunc(hkor*cal)),trunc((d-0.31)*cal),edAdrName.Text);  //von Textoberkante
    h := 18.17 + vkor;
    Printer.Canvas.TextOut((3230 + trunc(hkor*cal)),trunc((h-0.31)*cal),edAdrName2.Text);  //von Textoberkante
    e := 18.92 + vkor;
    Printer.Canvas.TextOut((3230 + trunc(hkor*cal)),trunc((e-0.31)*cal),edAdrStrasse.Text);  //von Textoberkante
    f := 19.81 + vkor;
    Printer.Canvas.TextOut((3230 + trunc(hkor*cal)),trunc((f-0.31)*cal),edAdrPLZ.Text);  //von Textoberkante
    Printer.Canvas.TextOut((3777 + trunc(hkor*cal)),trunc((f-0.31)*cal),edAdrOrt.Text);  //von Textoberkante
    g := 20.72 + vkor;
    Printer.Canvas.TextOut((3230 + trunc(hkor*cal)),trunc((g-0.31)*cal),edAdrLand.Text);  //von Textoberkante
  Printer.EndDoc;
end;