Druckerschacht wählen

[Ravus80]

Hallo,

für den Ausdruck aus meinem Programm möchte ich die verschiedenen Druckschächte eines Druckers speziell ansprechen. Meine Internetrecherche brachte mich zu folgendem Code. Leider verstehe ich ihn nicht. Aus diesem Grund finde ich auch nicht den Grund für meinen Fehler. Der Drucker druckt zwar allerdings weiterhin Automatische Quellenauswahl.

Für Hilfe wäre ich sehr dankbar.

Code:

{-----------------------------------------------------------------------------}
procedure Druckerwählen;
var
  ini     : TIniFile;
  Device : array[0..255] of char;
  Driver : array[0..255] of char;
  Port   : array[0..255] of char;
  DeviceMode  : THandle;
  DevMode  : PDEVMODE;

begin
   ini := TIniFile.Create(ExtractFilePath(Application.ExeName)+
      'test.ini');  //Öffnen der ini

   Printer.PrinterIndex := ini.ReadInteger('DruckRech','Drucker',0);
   Ini.Free;
   Printer.GetPrinter(Device, Driver, Port, DeviceMode);
   DevMode := GlobalLock(DeviceMode);
   try
     DevMode^.dmDefaultSource := 4; //Druckerschacht
     Printer.SetPrinter(Device, Driver, Port, DeviceMode);
   finally
     GlobalUnlock(DeviceMode);
   end;
end;
{-----------------------------------------------------------------------------}

[squetk]

Zitat:

DevMode^.dmDefaultSource := 4; //Druckerschacht

Das Problem hierbei ist, dass die Nummerierung der Druckerfächer je Druckertyp variiert.
Deshalb ist so eine hardcodierte Zuweisung nicht sinnvoll.

Mir hat bei diesem Problem die JCL weitergeholfen, speziell die Unit JclPrint.pas.
GetBinSourceList liefert alle Fächer des aktuellen Printers und per BinIndex kann das Fach eingestellt werden.