Einzelnen Beitrag anzeigen

Benutzerbild von MrSpock
MrSpock
(Co-Admin)

Registriert seit: 7. Jun 2002
Ort: Owingen
5.865 Beiträge
 
Delphi 2010 Professional
 
#28
  Alt 9. Mai 2003, 22:17
Hallo eassy,

herzlich willkommen im Delphi-PRAXIS Forum.

Du kannst einfach einen Pageheader einfügen. Dort setzt du hasChild auf True. Bei dem dann erzeugten Band kannst du wieder hasChild auf True setzen. So hast du im Prinzip 3 Kopfzeilen. In der BeforePrint des jeweiligen Bandes legst du fest, welches gedruckt werden soll. Z.B:

Delphi-Quellcode:
...
procedure TForm2.PageHeaderBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
   PrintBand := QuickRep1.PageNumber = 1;
end;

procedure TForm2.ChildBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
   PrintBand := QuickRep1.PageNumber = 2;
end;

procedure TForm2.ChildBand2BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
   PrintBand := QuickRep1.PageNumber > 2;
end;
Albert
Live long and prosper


MrSpock
  Mit Zitat antworten Zitat