Seleccionar bandeja de impresión

[afxe]

Bueno, acabo de ver este post y al no tener respuesta me he dicho... más vale tarde que nunca, por si alguien está buscando algo sobre esto, por lo menos que encuentre una solución.

En el quickreport, en printersettings tienes la propiedad outputbin, para indicar la bandeja de salida. Sin embargo, algunas veces no he conseguido que la impresora responda a estos cambios en el quickreport. Acabo de realizar una función para cambiar la bandeja de una impresora pasada por parametro. Aún no lo he probado, pues estoy chapuceando en casa y no tengo una impresora multibandeja a mano, así que no os puedo asegurar que funcione:

 
Procedure ActivaBandeja(FPrinter: TPrinter; NumBandeja: SmallInt);
var
  FDevice: PChar;
  FDriver: PChar;
  FPort: PChar;
  DeviceMode: THandle;
  DevMode: PDeviceMode;
begin
  FPrinter.GetPrinter(FDevice, FDriver, FPort, DeviceMode);
  DevMode := GlobalLock(DeviceMode);
  if  ((DevMode^.dmFields and DM_DEFAULTSOURCE) = DM_DEFAULTSOURCE) then begin
    DevMode^.dmFields := DevMode^.dmFields or DM_DEFAULTSOURCE;
    DevMode^.dmDefaultSource := NumBandeja;
  end;
  FPrinter.SetPrinter(FDevice, FDriver, FPort, DeviceMode);
  GlobalUnlock(DeviceMode);
end;

Si alguien lo mejora que lo postee... Saludos.

[atrus]

Una pregunta, e NumBandeja que pasas por parametros de donde sale?
gracias.

[afxe]

Teóricamente es un nº entre 1 y 15. Tendrías que ir activando cada uno y viendo que resultado se produce en la impresora. Parece ser que debería ser estandar en todas las impresoras, pero la realidad es que no es así.