Hi,

Probably the same as the problem I encountered with cascade delete
in the database. Try doing your delete at the end using delete for
instead of deleting within the scan loop.

HTH,
Arriyel

>Why does the following code only pick the first record for printing?
>
>Select inittbl
>Scan
>
>edrno = AllT(inittbl.nedrno1)
>edr_subno = inittbl.nmsub
>
>SET PROCEDURE TO WWAPI ADDITIVE
>SET PROCEDURE TO WWPDF ADDITIVE
>SET PROCEDURE TO nadatest ADDITIVE
>oPDF=CREATE("wwPDF40edrs")
> llResult = oPDF.PrintReport("newbedrform.frx",;
> "\\gvmain\applications\foxapps\edrmanagement\edrhold\" + AllT(edrno) + AllT(Str(edr_subno)) + "1.pdf")
>
>Delete
>EndScan
>Set Printer To Default