Changing Printer try

Hi,

I've problems changing printer try

I'm using this:


procedure SetPrinterPageSource(PaperSource: Word);
var
  DeviceName,
  PortName,
  DriverName : array[0..255] of Char;
  DeviceMode : THandle;
  DevMode    : PDevMode;
begin
  Printer.GetPrinter(DeviceName, DriverName, PortName, DeviceMode);
  DevMode:= GlobalLock(DeviceMode);
  with DevMode^ do begin
     dmDefaultSource:= PaperSource;
     dmFields:= dmFields or DM_DEFAULTSOURCE;
  end;
  GlobalUnlock(DeviceMode);
  Printer.SetPrinter(DeviceName, DriverName, PortName, DeviceMode);
end;


Where PaperSource must be somthing like this 250 a number retrieved using
the DeviceCapabilities function

Any can help me?

Thanks in advance !