Problem using "before group of"

Hello! I've got a problem with a report. The first record produce two pages, but i want only have one. What can I do? Thanx in advance!! Dirk Emmermacher -- Name des Reports: Nietu_rech2.ace -- Rechnungen f'r andere Zahler (Inkasso Art = 3 in nietu_adr) -- Programmiert am : 20.01.1999 bis 21.01.1999, 04.03.1999 -- Programmiert von: Dirk Emmermacher -- Version: 1.1 database ntb3 end define variable vjahr char(4) variable vmahn char(1) variable vinkasso char(1) variable antwort char(1) variable fett char(8) variable normal char(8) variable unten char(8) variable oben char(8) variable gross char(8) variable klein char(8) variable sanzahl smallint variable ssumme money(6,2) end input prompt for vjahr using "Bitte das Rechnungsjahr : " prompt for vinkasso using "Bitte die Zahlungsart : " prompt for vmahn using "Bitte die Mahnstufe : " prompt for antwort using "Weiter mit Enter. Abbruch mit Strg + C!" end output left margin 10 right margin 10 top margin 5 bottom margin 0 page length 60 report to "/tmp/v.txt" -- report to PIPE "lp -dLASERIIID" end select nietu_adr_re.anrede, nietu_adr_re.name, nietu_adr_re.name2, anrede_text, nietu_adr_re.strasse, nietu_adr_re.haus_nr, nietu_adr_re.plz, nietu_adr_re.ort, nietu_adr_re.kto, nietu_adr_re.blz, nietu_adr_re.inkasso_art, nietu_adr.inkasso_art kink, nietu_adr.liefermenge, nietu_adr.leser_nr, nietu_adr_re.leser_nr leser, nietu_adr.zahler, nietu_re.bezahlt, nietu_adr.name nam, nietu_re.zahler_nr, nietu_re.zahlt_fuer, nietu_re.mahnstufe, nietu_re.betrag, nietu_re.jahr, nietu_re.preis_nr, waehrung_nr, waehrung_text from nietu_adr, nietu_re, nietu_anrede, waehrung, nietu_adr_re where nietu_adr_re.leser_nr = nietu_re.zahler_nr and nietu_re.preis_nr = waehrung.waehrung_nr and nietu_adr.anrede = nietu_anrede.anrede_nr and jahr = $vjahr and nietu_re.zahlt_fuer = nietu_adr.leser_nr and nietu_adr.zahler is not null and mahnstufe = $vmahn and nietu_adr_re.inkasso_art = $vinkasso and nietu_adr.inkasso_art = "3" order by plz,zahler_nr end format first page header let sanzahl = 0 let ssumme = 0 let fett = ASCII(027),"(s3B" -- Umschaltung auf FETT-Schrift let normal = ASCII(027),"(s0B" -- Umschaltung auf Normal-Schrift let oben = ASCII(027),"&l1H" -- Benutzung des oberen Schachtes mit LASER Jet IIID let unten = ASCII(027),"&l4H" -- Benutzung des unteren Schachtes mit LASER Jet IIID let gross = ASCII(027),"(s24v3B" -- Schriftgr'sse 24 Pica, Fett let klein = ASCII(027),"(s12v0B" -- Schriftgr'sse 12 Pica, Normal print unten clipped,normal clipped skip 7 lines page header -- print unten clipped, normal clipped skip 4 lines before group of zahler_nr print anrede_text print name print name2 print strasse clipped,1 spaces,haus_nr print plz clipped, 1 spaces, ort , 35 spaces; print today using "dd-mm-yyyy" skip 9 lines if vmahn = "0" -- Normale Rechnung then begin if vinkasso = "1" -- Abbucher then begin print fett clipped,"Rechnung NTB-Magazin f'r das Jahr ",vjahr; print normal clipped print fett clipped,"Ihre Kunden Nummer: ",zahler_nr; print normal clipped skip 3 lines print column 30, "Menge",18 spaces,"Preis in (",waehrung_text,")" end end if vmahn = "0" -- Normale Rechnung then begin if vinkasso = "2" -- 'berweiser then begin print fett clipped,"Rechnung NTB-Magazin f'r das Jahr ",vjahr; print normal clipped print fett clipped,"Ihre Kunden Nummer: ",zahler_nr; print normal clipped skip 3 lines print column 30, "Menge",18 spaces,"Preis in (",waehrung_text,")" end end if vmahn = "1" -- Zahlungserinnerung then begin if vinkasso = "2" -- 'berweiser then begin print fett clipped,"Zahlungserinnerung NTB-Magazin f'r das Jahr "; print vjahr,normal clipped print fett clipped,"Ihre Kunden Nummer: ",zahler_nr; print normal clipped skip 3 lines print "Sehr geehrte Leserin, sehr geehrter Leser," skip 1 lines print column 30, "Menge",18 spaces,"Preis in (",waehrung_text,")" end end if vmahn = "2" -- 1. Mahnung then begin if vinkasso = "2" -- 'berweiser then begin print fett clipped,"Mahnung NTB-Magazin f'r das Jahr ",vjahr; print normal clipped print "Ihre Kunden Nummer: ",zahler_nr; print normal clipped skip 3 lines print "Sehr geehrte Leserin, sehr geehrter Leser," skip 1 lines print column 30, "Menge",18 spaces,"Preis in (",waehrung_text,")" end end if vmahn = "3" -- 2. Mahnung then begin if vinkasso = "2" -- 'berweiser then begin print fett clipped,"2. Mahnung NTB-Magazin f'r das Jahr ",vjahr; print normal clipped print fett clipped,"Ihre Kunden Nummer: ",zahler_nr; print normal clipped skip 1 lines print column 30, "Menge",18 spaces,"Preis in (",waehrung_text,")" end end on every row print nam, liefermenge,25 spaces, betrag let sanzahl = sanzahl + liefermenge let ssumme = ssumme + betrag after group of zahler_nr print "=====================================================================" print "Gesamt",21 spaces, sanzahl,15 spaces, ssumme if vmahn = "0" -- Normale Rechnung then begin if vinkasso = "1" -- Abbucher then begin skip 2 lines print "Im Preis sind 7% Mehrwertsteuer enthalten." skip 2 lines print "Wir werden den Betrag -wie vereinbart- in den"; print " n'chsten Tagen von Ihrem" print "Konto abbuchen." skip 2 lines print "Konto Nr. : ",kto print "Bankleitzahl : ",blz end end if vmahn = "0" -- Normale Rechnung then begin if vinkasso = "2" -- 'berweiser then begin skip 2 lines print "Im Preis sind 7% Mehrwertsteuer enthalten." skip 2 line