>SET PROCEDURE TO setprinterproperties >loSetPrinterProperties = CREATEOBJECT('SetPrintProperties') > >* Set the printer to the manual tray >loSetPrinterProperties.SetProperty(DM_DEFAULTSOURCE, DMBIN_MANUAL) >IF loSetPrinterProperties.lError > MESSAGEBOX("Error setting Manual: "+loSetPrinterProperties.cError) >ELSE > REPORT FORM MyReport TO PRINTER RANGE 1,1 >ENDIF > >* Set the printer to the upper tray >loSetPrinterProperties.SetProperty(DM_DEFAULTSOURCE, DMBIN_UPPER) >IF loSetPrinterProperties.lError > MESSAGEBOX("Error setting Upper: "+loSetPrinterProperties.cError) >ELSE > REPORT FORM MyReport TO PRINTER RANGE 2,2 >ENDIF > >* Set the printer to the lower tray >loSetPrinterProperties.SetProperty(DM_DEFAULTSOURCE, DMBIN_LOWER) >IF loSetPrinterProperties.lError > MESSAGEBOX("Error setting Lower: "+loSetPrinterProperties.cError) >ELSE > REPORT FORM MyReport TO PRINTER RANGE 3,3 >ENDIF >