Quickreportta pagefooter bandını son sayfada nasıl gizleriz?

[ender_arslanturk]

Selâmlar,

Aramalarıma ve çeşitli sonuçlar olmasına rağmen hâlâ Quickreportta PageFooter bandını son sayfa da nasıl gizleyebileceğimi bulamadım. :s

Yardımlarınız için şimdiden teşekkür ederim.

[ender_arslanturk]

Çözüm :

Kod: Tümünü seç

QuickRep1.Options.LastPageFooter:=False;

Ayrıca bu kon ile band içerisinde ki elemanların yukarıdan konumunu değiştirebilirsiniz

Kod: Tümünü seç

procedure TForm1.Summary1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean);
var
        I:Integer;
begin
        With Sender as TQRBand do
        For I:=1 to ControlCount do
        With Controls[I-1] as TControl do
        Top:=(Top+son.Height)-31;
end;

summary nin aligntobottom özelliğini True yaptığınız da summary bandını pagefooter bandının hemen üstüne alacaktır zira özellik false olduğunda mesela stokları listeliyorsunuz liste biter bitmez sonraki satırdan summary i veriyor bu sefer.

Geriye kaldı tek bir soru..

Son sayfada ki PageFooter'un içerisinde ki nesnenin özelliklerini nasıl değiştirebilirim ?

Teşekkürler,

[ender_arslanturk]

Çözüm :

Kod: Tümünü seç

var
     FDPageCount:Integer;

Kod: Tümünü seç

                QuickRep1.Prepare; //Sayfayı hazırlıyor..
                FDPageCount:=QuickRep1.QRPrinter.PageCount;
                QuickRep1.Print;

Kod: Tümünü seç

procedure TForm1.QRExprPrint(sender: TObject; var Value: String); //Diğer QrExpr ler bu olayı kullanmaktadır..
begin
        try
                QrExpr:=Sender As TQrExpr;

                If (QrExpr.Tag=1)and(FormDizayn.PageNumber=1)             Then Value:='';  //1-Sadece ilk sayfa da göstersin
                If (QrExpr.Tag=2)and(FormDizayn.PageNumber=FDPageCount)   Then Value:='';  //2-Sadece son sayfa da göstersin
                If (QrExpr.Tag=3)and(FormDizayn.PageNumber>1)             Then Value:='';  //3-Sadece ilk sayfa da göstermesin
                If (QrExpr.Tag=4)and(FormDizayn.PageNumber<FDPageCount)   Then Value:='';  //4-Sadece son sayfa da göstermesin
        except
        end;

end;

Sanırım bu şekilde summary kullanmaya da gerek kalmamaktadır.

İyi çalışmalar,