Aktuelles Papierformat auslesen/setzen?

[Tod787]

Benötige auch eine Funktion um das Papierformat von Druckern zu ermitteln und den Code mal ausprobiert. Leider bekomme ich bei allen Druckern immer DinA4 angezeigt.

Habe vor eine Combobox mit den Druckern zu erstellen mit der ich die Papierformate aller Drucker auslesen kann.

Aufruf:

Delphi-Quellcode:

procedure TForm1.ComboBoxChange(Sender: TObject);
var
  i, PaperID: integer;
  Papers: TPaperInfos;
begin
  Printer.PrinterIndex := ComboBox.ItemIndex;
  PaperID := GetPaperID;
  GetPaperInfo(Papers, Printer.PrinterIndex);
  for i := Low(Papers) to High(Papers) do
  begin
    if PaperID = Papers[i].paperID then
    begin
      label1.Caption := Papers[i].papername;
      BREAK;
    end;
  end;
end;