Arsip: Mencetak Banyaknya jumlah halaman di QuickReport


by doditali in Articles more 15 years ago 1673
mohon maaf kalo tips ini sudah banyak diketahui oleh anggota lain.
source ini dapat mengetahui jumlah halaman pada quickreport
Untuk memanggil source ini dapat anda gunakan komponen lain, misalnya :
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;

note: qrLaporan adalah komponen QuickReport

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com