Mehrfach Etikettendruck

8. April 2010 08:58

Nach langer Suche im Forum und keinem Erfolg mit NEWPAGE stelle ich hier nochmal das Problem zur Diskussion. :)

Unser Bericht soll eine variable Anzahl von Etiketten gedruckt werden, die Anzahl und den Ort des Druckstarts auf dem Blatt können wir bestimmen.
Jedoch wird kein Seitenumbruch erzeugt...
Also egal wieviele Etiketten wir eingeben, nach dem Durchlauf der vorhandenen Adressfelder in den Sections wird der Bericht zum Druck geschickt und jede weitere Seite (wenn diese nötig ist) wird leer angedruckt...

Müssen wir erst das A4 Blatt vollständig füllen?
Bei jedem anderen Bericht durchläuft er doch auch immer wieder aufs neue den Body und druckt die Datensätze an!?
Customer OnAfterRecord

Code:
    IF  AnzahlIst< AnzahlSoll THEN BEGIN
      RecordNo := RecordNo +1;
      IF  AnzahlIst=0 THEN ColumnNo := StartofColumnNo;
      PageBreak:=FALSE;

      FOR i :=1 TO StartofColumnNo DO
        CLEAR(CustAddr[i]);

      WHILE ( AnzahlIst< AnzahlSoll) AND (NOT PageBreak) DO BEGIN
        IF ColumnNo > NoOfColumns THEN BEGIN
          ColumnNo := 1;
          //CurrReport.NEWPAGE;  // aktueller record break
          PageBreak:=TRUE;
        END
        ELSE BEGIN
          FormatAddr.Customer(CustAddr[ColumnNo],Customer);
          AnzahlIst := AnzahlIst + 1;
          ColumnNo := ColumnNo + 1;
        END;
      END;

      IF(NOT PageBreak) THEN BEGIN
        FOR i := ColumnNo TO NoOfColumns DO
          CLEAR(CustAddr[i]);
      END;

      //ColumnNo := 0;
    END;

Danke Euch!!!

Also wie zwinge ich den Report zu einem Seitenumbruch und den weiteren Druck der verbleibenden Etiketten?