Nun ja, ganz einfach:

Drucken Kopf;
setll (MyFirm) Lieferanten;
dow 1=1;
reade (MyFirm) Lieferanten;
if %eof();
leave;
endif;
Drucken Lieferant;
setll (MyFirm:MyLiefnr) Kontrakte;
dow 1=1;
reade (MyFirm:MyLiefnr) Kontrakte;
if %eof();
leave;
endif;
Drucken Kontrakt;
enddo;
enddo;

Beachte auch den Seitenwechsel.