Работа с принтером

[Proof]

Как можно програмно выбирать лоток принтера, на котором должна производиться печать документа?!

[Proof]

Значит ни кто с данной проблеммой не сталкивался

procedure ChangePrinterTray ( Tray: Short );
var 
  ADevice, ADriver, APort: array [0..255] of Char;
  ADeviceMode: THandle;
  DevMode: PDeviceMode;
begin 
  // retrieve current settings 
  Printer.GetPrinter( ADevice, ADriver, APort, ADeviceMode );
  // if we have a DeviceMode 
  if ADeviceMode <> 0 then
   begin
    GlobalUnlock( ADeviceMode );  // unlock it
    DevMode := GlobalLock( ADeviceMode );  // get a pointer to current printer settings 
    DevMode.dmDefaultSource := Tray;  // apply new seting 
    DevMode.dmFields := DevMode.dmFields or DM_DEFAULTSOURCE;  // set the flag of what we will update 
    GlobalUnlock( ADeviceMode );  // unlock devicemode 
    Printer.SetPrinter( ADevice, ADriver, APort, ADeviceMode );  // apply new settings 
  end;
end;

Нашел данную процедуру, вроде она должна позволить выбрать, но что передавать в качестве параметра ума не приложу!!!