Re: report for computer labels 2-wide

Asked and answered in the FAQ. Summary: remember that you don't Have to do an OUTPUT TO REPORT for every fetch. You can do something like: START REPORT LET siArr = 0 FOREACH cursor INTO rec.* LET siArr = siArr + 1 LET array[siArr].* = rec.* IF siArr = 2 THEN OUTPUT TO REPORT rptFunction( array[1].*, array[2].*) LET siArr = 0 END IF END FOREACH IF siArr > 0 THEN # output the last unmatched row INITIALIZE array[2].* TO NULL OUTPUT TO REPORT rptFunction( array[1].*, array[2].*) END IF FINISH REPORT The report can be something like REPORT rptFunction(rec1, rec2) ... PRINT rec1.firstLine, COLUMN 41; IF rec2.firstLine IS NOT NULL THEN PRINT rec2.firstLine; END IF PRINT "" You could also do the record counting in the REPORT function and send the rows in the normal one-at-a-time manner, but that puts more processing logic in the report function than I prefer. Dirk Emmermacher wrote in message <72grn8$148$1@news01.btx.dtag.de>... >Hi! >I've got a problem to write a special report: >The report must the following output: >N times of a record on a 2-wide computer labels. >The variable N is in each record of my table. I'm working the version >4.00 on a standard engine. > >Can somebody help me? > >Best regards > >Dirk Emmermacher >E-Mail: NDSTURNERBUND@t-online.de