Arsip: Mencetak Banyaknya jumlah halaman di QuickReport

procedure TForm1.tbl_JumlahHalamanClick(Sender: TObject);
begin
qr_Laporan.Prepare;  // harus disiapkan terlebih dahulu quickreport nya
qr_Laporan.caption := 'Laporan ini memiliki  ' +
IntToStr( qr_Laporan.QRPrinter.PageCount) + ' halaman';
qr_Laporan.QRPrinter.Free;
qr_Laporan.QRPrinter := nil;
qr_Laporan.Preview;   // bisa anda ganti menjadi qr_Laporan.Print
end;