Home » Tipps & Tricks » Drucker » Druckereigenschaften » Auflösung des aktuellen Druckers ermitteln

Auflösung des aktuellen Druckers ermitteln

uses Printers;

procedure TForm1.Button1Click(Sender: TObject);
var
  HorzPixelsPerInch: Integer;
  VertPixelsPerInch: Integer;
begin
  HorzPixelsPerInch :=
      GetDeviceCaps(Printer.Handle, LogPixelsX);
  VertPixelsPerInch :=
      GetDeviceCaps(Printer.Handle, LogPixelsY);
end;