SELECT crsfinal.mainkey, modacad.moc011 FROM crsfinal, modacad WHERE crsfinal.mainkey=modacad.mainkey ; INTO CURSOR crsmerged SCAN SELECT crsmerged REPORT FORM "c:\Foxpro Projects\Critical Path\ ; critical path.frx" NOEJECT NOCONSOLE TO PRINTER ENDSCANMany Thanks