TPrinters BeginDoc erzeugt EAccessViolation

[Luckie]

Das Printer Objekt darf man nicht erzeugen. Einfach die Unit Printers einbinden und Printer verwenden:

Delphi-Quellcode:

if PrintDialog.Execute then
  begin
    with Printer do
    begin
      Title := APPNAME;
      BeginDoc;