Marcel,

If you have VFP route it's report to a file, then you can manipulate it's content like this:

lcPrintJob = filetostr( ... )
i = at( '&' + 'l25', lcPrintjob )
if ( i > 0 )
   stuff( lcPrintJob, i + 5, 1, iif( Tray1, '1', '2' ) )
endif
set printer to ...
set printer on

??? lcPrintJob

set printer off

>This is my PCL datastream created by foxpro report. Who I can add the &l251H or &l252H
>tray number at the beginning of each records. I have the fixtext dos program I can search and replace any characters in a print file but the problem is to fine the start of each record.
>
>%-12345X@PJL
>@PJL SET JOBNAME ="prt1p.frx"
>@PJL SET RESOLUTION=600
>@PJL SET COPIES=1
>@PJL SET MEDIATYPE=PLAIN
>@PJL SET DUPLEX=ON
>@PJL SET BINDING=LONGEDGE
>@PJL SET ORIENTATION=PORTRAIT
>@PJL SET USERNAME="MedeBill"
>@PJL SET USERID=-1
>@PJL SET HOLD=OFF
>@PJL SET DENSITY=100%
>@PJL SET SMOOTHING=NONE
>@PJL SET JOBOFFSET=OFF
>@PJL SET STAPLEPOSITION=OFF
>@PJL SET LAYOUT=NORMAL
>@PJL SET FRONTCOVER=OFF
>@PJL SET BACKCOVER=OFF
>@PJL SET WAIT=OFF
>@PJL SET IMAGESHIFT=OFF
>@PJL SET OUTPUTBIN=DEFAULT
>@PJL SET OUTPUTMODE=FACEDOWN
>@PJL SET COLLATE=ON
>@PJL SET PAPERTRAY=TRAY2
>@PJL SET PAPER=LETTER
>@PJL SET PIFRONT=OFF
>@PJL SET PIBACK=OFF
>@PJL SET TANDEMPRINT=OFF
>@PJL ENTER LANGUAGE=PCL
>E*l1R&l0O&l2A&l252H <----------this is my tray