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