BorlandTalk.com

Bob Bedford · Guest

Hi all,

I'm facing a strange problem in QR 3.5

GroupClient is the header for every group (every client)
GroupNewPage is an empty header I print since the second page as the text
shouldn't go too high,
PageFooter is the footer with page count....for every group.

Now the are called in order listed above but the NewPageBeforePrint isn't
called once (the 4th page) and I don't know why. So all my text in sticked
on the top of the page.
It's there any workaround ?
- GroupClientAfterprint is called only when a new client is detected
- GroupNewPageBeforeprint should be called on all pages and it's not on the
4th ????
- PageFooter is called on all pages and that's ok.

Strange thing: I do a prepare, all this code is executed, then I call
"preview" and the code is called again...why ? and with the trick of the
page/group count the preview isn't the same as the print result.

I've this code:
procedure TFormReport.GroupClientAfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin
groupcount.add('0');
groupname.add(QClientAddressClientName.Value);
inc(pagecount,pages);
inc(group);
pages := 0;
end;

procedure TFormReport.GroupNewPageBeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
PrintBand := pages > 0;
end;

procedure TFormReport.PageFooterBandBeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
inc(pages);
GroupCount.Strings[GroupCount.count-1] := inttostr(pages);
if(groupcount.Count > group) then begin
lblpage.caption := 'page
'+inttostr(pages)+'/'+groupcount[group-prepared];
lblname.Caption := groupname[group-1]; //print client name on right
end;
end;

Bob