Papierformate mit Beschreibung.

[Garfield]

Ich möchte in einer Combobox die Papierformate mit Beschreibung auflisten. Zum Beispiel 'A4 (210 x 297 mm)' anstelle von 'A4' oder 'C6 Umschlag(114x162 mm)' anstelle von 'C6' (siehe Bild). Mit dem Beispiel von http://www.delphipraxis.net/91547-pa...-auslesen.html funktioniert es für meinen Samsung, für FreePDF jedoch nicht. Mit

Delphi-Quellcode:

Printer.GetPrinter(@Device, @Driver, @Port, hDMode);
if hDMode <> INVALID_HANDLE_VALUE
then begin
  pDMode := GlobalLock(hDMode);
  if pDMode <> nil
  then begin
    lblPaperSizeValue.Caption   := pDMode^.dmFormName;
    lblOrientationValue.Caption := cOrientation[pDMode^.dmOrientation];
    lblQualityValue.Caption     := Format('%d dpi', [pDMode^.dmPrintQuality]);
    lblColorValue.Caption       := cColorSupport[pDMode^.dmFields and DM_Color > 0];
  end;
  GlobalUnlock(hDMode);
end;

funktioniert es für beide, wenn vorher der Samsung in einem TPrinterSetupDialog ausgewählt wurde, sonst für beide nicht.

Weiß jemand, wie man die Beschreibung immer erhält?