AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

FastReport - Mehrseitiges Formular Drucken

Ein Thema von lowmax_5 · begonnen am 13. Dez 2016 · letzter Beitrag vom 14. Dez 2016
 
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.
Angehängte Grafiken
Dateityp: jpg FR_Test.jpg (172,4 KB, 20x aufgerufen)
Angehängte Dateien
Dateityp: pdf Test_MasterDetail.pdf (106,3 KB, 14x aufgerufen)

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


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:32 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz