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?