MyCity » Pascal -> Delphi » QuickReport - ogranicavanje broja redova

QuickReport - ogranicavanje broja redova

Napisano na dan: 11.8.2006

QuickReport - ogranicavanje broja redova
Sledeća strana Pagination

Idi na vrh

Poslao: 11 Avg 2006 21:46
Idi na vrh
offline
  • Pridružio: 09 Avg 2006
  • Poruke: 17

kako u QuickReport-u ograniciti broj redova za stampu na jednoj strani



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 12 Avg 2006 10:22
Idi na vrh
offline
  • badam 
  • Novi MyCity građanin
  • Pridružio: 26 Maj 2006
  • Poruke: 9

ovako da ti posle desetog reda predje na novu stranu
procedure TQuickReport1.QRBand1BeforePrint(Sender: TQRCustomBand;   var PrintBand: Boolean); begin   if ADOTable1.RecNo=11 then     QRBand1.ForceNewPage:=True   else     QRBand1.ForceNewPage:=False end;
Ako treba svaka strana da ima samo 10 (ili x) redova, probaj sa mod 10 (mod x)
Pozdrav



Poslao: 12 Avg 2006 17:00
Idi na vrh
offline
  • Pridružio: 09 Avg 2006
  • Poruke: 17

e badame hvala ali ovde nesto nestima

Poslao: 12 Avg 2006 18:27
Idi na vrh
offline
  • badam 
  • Novi MyCity građanin
  • Pridružio: 26 Maj 2006
  • Poruke: 9

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.

Poslao: 13 Avg 2006 01:15
Idi na vrh
offline
  • Strog  Male
  • Stručni saradnik
    Web programiranje
  • Bojan Kopanja
  • Web & Mobile developer @ ZeusSoftware
  • Pridružio: 26 Jul 2003
  • Poruke: 2597
  • Gde živiš: Stara Pazova

Ovo definitivno radi! Nisam probao, ali znam da mora da radi posto sam slicne stvari koristio. Rimogard, reci gde si zapeo jer ti ovako niko ne moze pomoci Smile...

Poslao: 16 Avg 2006 21:57
Idi na vrh
offline
  • Pridružio: 09 Avg 2006
  • Poruke: 17

TACNO ovo definitivno radi po dobroj staroj navici umreti necu a leka mi nema oci su mi pobelile

UPOZORENJE pazite svako slovo moze da vam upropasti rad

sta reci Strogu i Badamu zahvalnost na trudu

Dopuna: 16 Avg 2006 22:57

da li moze suma iz quickreporta da se vrati na formu radi prikaza

Poslao: 17 Avg 2006 14:24
Idi na vrh
offline
  • Strog  Male
  • Stručni saradnik
    Web programiranje
  • Bojan Kopanja
  • Web & Mobile developer @ ZeusSoftware
  • Pridružio: 26 Jul 2003
  • Poruke: 2597
  • Gde živiš: Stara Pazova

Probaj na AfterPrint event te kontrole u koju upisujes sumu ( verovatno QRExpression ) da stavis recimo:

Form1.Label1.Caption:= Form2.QRExpression1.Caption

Nisam probavao, tako da ne znam 100% da li ce ovo da radi, ali mi po nekoj logici nalaze da bi moglo da radi Very Happy.

P.S. Broj forme i labela naravno prilagodi svojim potrebama Wink...

MyCity » Pascal -> Delphi » QuickReport - ogranicavanje broja redova

Ko je trenutno na forumu
 

Ukupno su 907 korisnika na forumu :: 62 registrovanih, 6 sakrivenih i 839 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 20624 - dana 04 Apr 2026 04:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: ArchaBasha, Arsenije, Asteker, BaneM75, Banovo Brdo, Bubili, cenejac111, Chainsaw, Cirkon, Deki Duga Devetka, Demi87, Dixtrix, dusanobr, Foxdie, havoc995, Hemi, ILGromovnik, IQ116, Ivan Campo, ivan_8282, IvanMiletic, jalos, Kajzer Soze, kinez88, krkalon, Krusarac, kybonacci, leopard83, Limeni91, lucko1, mainstream, marko.markovic, Marko88, marsi, MaschinenPistole, mat, mercedesamg, MortalCombajn, muaddib, N.e.m.a.nj.a., neutrino, Obrenovic, obsc, pein, Pekman, pera bager, rakivan, raster12, rednap, redstar72, Rumun2000, sap, Skakac7, smuk, Solunac na steroidima, Titan, US_Rank_0, Vlada78, VojaeZ, vrag81, ZetaMan, zivojin32