Rechnungsseite drucken???

[MrSpock]

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;