Hi - I am having the same problem- this is the loop code I am using and it works fine when sent to a printer but not to a file (ask for a new file name for each page. Did you ever solver your issue?
Var vCount as Int Var vLoop as Int Var vPos as Int
SUBROUTINE PrintIt()
PrintPageOrientation(1) AlternateDefaultPrinter("textprint") Newpage (850,1100)
PrintString(Company, 30, 35, 0, "Arial", 14, 0) PrintString(Address, 30, 55, 0, "Arial", 14, 0) PrintString(City, 30, 85, 0, "Arial", 14, 0) PrintString(sTate, 30, 105, 0, "Arial", 14, 0) PrintString(Zip, 30, 155, 0, "Arial", 14, 0)
finishPage()
END SUBROUTINE
vPos = @ResultSetCurrentPosition() vCount = @ResultSetTotal() For vLoop = 1 to vCount ResultSetCurrentPosition(vLoop) PrintIt() Next ResultSetCurrentPosition(vPos)
|