quickreports da toplam sayfa sayısının yazdırılması

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
kazimates
Üye
Mesajlar: 332
Kayıt: 01 Tem 2005 12:40
Konum: Kıbrıs
İletişim:

quickreports da toplam sayfa sayısının yazdırılması

Mesaj gönderen kazimates »

kıymetli arkadaşlar qickreports da almakta olduğumuz raporların alt kısmında normalde kaçıncı sayfa olduğunu yazdırabiliyoruz fakat örnek olarak sayfanın altında 3 sayfadan oluşan bir raporu 1#3, 2. sayfada 2#3 ve sonuncu sayfada 3#3 şeklinde nasıl baskısını alabiliriz?

sağlık, mutluluk ve başarı dileklerimle
Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4741
Kayıt: 09 Ara 2003 08:13
Konum: İstanbul
İletişim:

Mesaj gönderen mrmarman »

QuickReport'ta rapor preview esnasında hazırlandığından başta bunu Prepare diye önizlemesiz olarak hazırlatıp o zaman sayfa sayısını global bir değişkene veya QRLabel'lardan birine atabilirsin...


- Kaç sayfa olduğunu denemek için aşağıdaki kodu Preview'den önce dene.. Uygulaması sana kalmış...

Kod: Tümünü seç

    QuickRep1.Prepare;
    ShowMessageFmt('%d', [QuickRep1.QRPrinter.PageCount]);
Resim
Resim ....Resim
kazimates
Üye
Mesajlar: 332
Kayıt: 01 Tem 2005 12:40
Konum: Kıbrıs
İletişim:

qurickreports da toplam sayfa sayısı nın yazdırılması

Mesaj gönderen kazimates »

evet aldığım tiyo doğru çıktı ve sonuc olarak sayfa nosunu koyduğum yere 2. bir qrlabel koyup codeuda form un on create özelliğine şu şekilde girdim ve sonuk olumlu oldu.

QuickRep1.Prepare;
QrLabel1.Caption:=IntroStr(QuickRep1.QrPrinter.PageCount);
Cevapla