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