Neil,
what about
>

SELECT modacad.key1, modacad.key2, modacad.moc042, modacad.moc011, modacad.key3, modacad.moc046,modacad.mainkey ;
 FROM modacad ;
 WHERE modacad.mainkey==crsfinal.mainkey ;
 INTO CURSOR crsmatch

select distinct;
 crsmatch.mainkey;
 from crsmatch;
 into curHelp

scan
 select crsmatch
 set filter to mainkey==curHelp.mainkey
 REPORT FORM "c:\Foxpro Projects\Critical Path\critical path report.frx" NOEJECT NOCONSOLE TO PRINTER
endscan

BTW;
avoid open strings like

>REPORT FORM "c:\Foxpro Projects\Critical Path\;
>critical path report.frx" NOEJECT NOCONSOLE TO PRINTER

better would be

REPORT FORM "c:\Foxpro Projects\Critical Path\'+;
'critical path report.frx" NOEJECT NOCONSOLE TO PRINTER

HTH
Agnes

>I have a cursor (crsfinal) with one field in which gives me a list of Codes which is called mainkey. I then run a SQL query which queries on some data in a table and only shows me the information for the mainkey's that are the same. Here is my code:
> I would now like to print 1 report for each mainkey in the cursor crsmatch.
>
>Can anybody help me please?
>
>

>SELECT modacad.key1, modacad.key2, modacad.moc042, modacad.moc011, modacad.key3, modacad.moc046 ;
>FROM modacad ;
>WHERE modacad.mainkey=crsfinal.mainkey ;
>INTO CURSOR crsmatch
>
>REPORT FORM "c:\Foxpro Projects\Critical Path\;
>critical path report.frx" NOEJECT NOCONSOLE TO PRINTER
>