Yes i know what you say, but imagine that i have to print 500 pages(original) and 1000(copies)

(tray2) (tray3)
simultaneos prints an original one and then a copy is printed until the 1500 impressions... (500+1000)=1500 serious slow cpu no?


Thank...


>Note that in my example, I used the RANGE clause on the REPORT FORM command. That tells VFP to only print the pages within the range you specify.
>
>>Barbara thanks for your help, but your code send to the printer by each tray a "REPORT FORM"???
>>Example:
>>Tray1
>>Report form Report.frx to printer
>>and then
>>Tray2
>>Report form Report.frx to printer
>>???
>>
>>
>>because if it is so i have the same problem...is only one "REPORT FORM" with many page and then a few page go to the tray 2 and a few page go to the tray 3.... only in ONE "REPORT FORM Report.frx "
>>
>>
>>is this possible?
>>
>>
>>
>>>>Hi
>>>>Using ONLY one "report form" command how cant i print several page using tray 1 and 2.
>>>>
>>>>Example:
>>>>
>>>>report form demo.frx to printer
>>>>
>>>>Result:
>>>>
>>>>Page 1 = Tray1
>>>>Page 2 = Tray2
>>>>Page 3 = Tray1
>>>>Page 4 = Tray2
>>>>.....
>>>>I Made it using a "Report form" for every Tray, but it make the CPU work slow. I think if i send only one file it will be more fast.
>>>>
>>>>Thank for all..
>>>
>>>You didn't say which version of VFP you're using. If you're using version 9, then download the SetPrintProps.zip file from www.peisch.com/downloads.html. That has a program that allows you to change trays programmatically. It also has a form that demonstrates how to use the program. You would want to print the report with a RANGE clause, printing one page at a time, like so:
>>>

>>>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
>>>