|
kazi sta ne stima, a za to vreme ja cu da pojasnim za svaki slucaj:
Napravio sam jedan report (QuickReport1), na njega stavio jedan band (QRBand1) i jednu ADOTable (ADOTable1).
QRBand1.BandType postavio sam na rbDetail (u Object Inspectoru), ADOTable1 povezao sa nekom tabelom i property QuickReport1.DataSet postavio na ADOTable1 (isto u Object Inspectoru). QRBand1.BeforePrint je procedura iz prethodnog posta.
Ako ti bas treba samo 10 redova po strani, evo i toga:
procedure TQuickReport1.QRBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
if (ADOTable1.RecNo mod 10)=1 then
QRBand1.ForceNewPage:=True
else
QRBand1.ForceNewPage:=False
end;
Testirano, radi.
Izvini sto crtam sve sto treba da se uradi, ali ne znam gde je zapelo, a ovo mozda nekom i posluzi.
Pozdrav.
|
...
.
...
