Hi Tracy realy nice code thank you

But can I create a function exp: mytrayselection(_Pageno) and put that function the in the report Expression.
***If the _Pageno = 1 print from DEFAULTSOURCE=257 or the _Pageno = 2 print from DEFAULTSOURCE=258 ****
That way the report will change tray depending of page number or I can call a tray number in a field.

put that function in a procedure mytray.prg

FUNCTION mytrayselection
PARAMETERS pPage
oldArea = SELECT()
IF USED("prn")=.F.
   USE c:\commercial\prt1p.frx IN 0 ALIAS prn SHARED
ENDIF

SELECT prn
go top

IF MOD(pPage, 2)=1
   APPEND MEMO Expr FROM c:\commercial\Tray1.txt OVERWRITE
   prn = 1
ELSE
   APPEND MEMO Expr FROM c:\commercial\Tray2.txt OVERWRITE
   prn = 2 
ENDIF
SELECT(oldArea)
RETURN prn
set procedure to mytray.prg

Where my Tray1.txt:
DRIVER=winspool
DEVICE=2 Echo
OUTPUT=IP_192.168.0.251
ORIENTATION=0
PAPERSIZE=1
SCALE=100
ASCII=100
COPIES=1
DEFAULTSOURCE=257
PRINTQUALITY=600
COLOR=1
DUPLEX=2
YRESOLUTION=600
TTOPTION=3
COLLATE=1

Where my Tray2.txt:
DRIVER=winspool
DEVICE=2 Echo
OUTPUT=IP_192.168.0.251
ORIENTATION=0
PAPERSIZE=1
SCALE=100
ASCII=100
COPIES=1
DEFAULTSOURCE=258
PRINTQUALITY=600
COLOR=1
DUPLEX=2
YRESOLUTION=600
TTOPTION=3
COLLATE=1