[Fastreport] Benutzereinstellungen für Papier abfragen

[uwewo]

Schau mal ob das bei Dir funktioniert.

Delphi-Quellcode:

function GetPaperSizeIndex : integer;
var p          : array [0..99] of WORD;
    pDevMode   : PDeviceMode;
    DefSource  : Word;
    i          : Integer;
    Res        : DWord;
begin
  Printer.GetPrinter(ADevice, ADriver, APort, hDMode);
  if (hDMode <> 0) then
  begin
    pDevMode := GlobalLock(hDMode);
    if pDevMode <> nil then
    begin
      DefSource := pDevMode^.dmPaperSize;
      Res := DeviceCapabilities(ADevice,APort,DC_PAPERS,PCHAR(@p[0]),pDevMode);
      for i := 0 to Res-1 do
      if DefSource = p[i] then break;
    end;
    GlobalUnlock(hDMode);
    result := i; //Gibt Nr in Array (p) zurück
  end;
end;