I was printing to a specific pre printed form using printstring commands and all was good.

The form then needed to be sent as a print image file so I created a generic text printer set my programming in sbasic to choose that printer and all was good.

That process created 1 file every time a user reviewed the data and pressed the command button.

I now need to "batch" the output so there is 1 file with lots of forms instead of 1 form per file.

My thoughts are maybe use some sort of utility to merge all .txt files sesame creates or is there a method to append the txt file the generic printer is creating  or would I scrap my printstring code completely and use file I/O commands to create my own print image files or maybe have a reviewer mark record as good to print then do a retrieve on all them then do some kind of loop stuff to print to generic text printer.

All thoughts and help will be appreciated.
Thanks   

Thanks,

I have used Newdocument in other instances but always when running through a bunch of records within the same command button push. In the situation I am dealing with presently users are reviewing files and when they are satisfied a particular record is correct  they would print it and move on to another record. It could be numerous records before  they press the button again. Thats why I was thinking I would maybe change the record status / flag and then run the retrieve at a set time of the day and loop through the records that meet that criteria and output them to the generic text printer at once.

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)

Thanks Ray