Einzelnen Beitrag anzeigen

madas

Registriert seit: 9. Aug 2007
207 Beiträge
 
#2

AW: FastReport - Mehrseitiges Formular Drucken

  Alt 13. Dez 2016, 13:09
Ein Report mit einem MasterData Band anlegen, welches mit den Adressdaten gekoppelt ist. Darein packst Du ein DetailData Band, welches nicht mit einem Dataset verbunden wird, sondern einfach für Count die Anzahl der möglichen Seiten übergeben bekommt. Im Code-Behind lässt Du eine Variable mitlaufen, die im OnBeforePrint von der Seite (bzw. vom MasterData Band bzw. von einem Memo) um eins erhöht wird. In der gleichen Prozedure checkst Du per MODULO Count auf welcher Seite Du gerade bist. Bei 3 möglichen Seiten halt MOD 3. Und je nach Ergebnis setzt Du dann den Hintergrund entsprechend.

Delphi-Quellcode:
var
  tempCount: Integer;
    
procedure MemoOnBeforePrint(Sender: TfrxComponent);
begin
  Inc(tempCount);
  case (tempCount mod 3) of
    0: Memo.Color := clRed;
    1: Memo.Color := clGreen;
    2: Memo.Color := clYellow;
  end;
end;

begin
  tempCount := 0;
end.
Miniaturansicht angehängter Grafiken
fr_test.jpg  
Angehängte Dateien
Dateityp: pdf Test_MasterDetail.pdf (106,3 KB, 13x aufgerufen)

Geändert von madas (13. Dez 2016 um 13:18 Uhr)
  Mit Zitat antworten Zitat