1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm1.Button1Click(Sender: TObject);
 var
   presX, presY: Integer;
   r: TRect;
begin
  with richedit1 do begin
    plaintext := true;
    lines.loadfromfile( changefileext( application.exename, '.DPR' ));
  end;
  presX := GetDeviceCaps( printer.handle, LOGPIXELSX );
  presY := GetDeviceCaps( printer.handle, LOGPIXELSY );
  with r do begin
    left := presX;  // 1 inch linker Rand
    top  := 3 * presY div 2;  // 1.5 inch oberer Rand
    right := Printer.PageWidth - 3 * presX div 4; // 0.75 inch right margin
    bottom := Printer.PageHeight - presY; // 1 inch unterer Rand
  end;
  with richedit1 do begin
    Pagerect := r;
    Print('Testjob');
  end;
end;					

1:

[Fehler] Fahrliste.pas(203): Undefinierter Bezeichner: 'printer'