BISA PAKE TOMBOL COMMAND BUTTON
MISAL
Private sub Command1.Click()
Set Appn = CreateObject("CrystalRunTime.Application")
Set cReport = Appn.OpenReport(“D:\Report1.rpt")
CRViewer1.ReportSource = cReport
CRViewer1.ViewReport
End Sub
ATAU PAKE EVENT FORM_ACTIVATE/LOAD
MISAL:
Private sub Form_Activate()
Set Appn = CreateObject("CrystalRunTime.Application")
Set cReport = Appn.OpenReport(“D:\Report1.rpt")
CRViewer1.ReportSource = cReport
CRViewer1.ViewReport
End Sub
by Atep Nawawi
UNTUK CARA MEMBUAT REPORTNYA SILAHKAN BACA
DI FILE MEMBUAT REPORT PAKE CRYSTAL REPORT 8.0.pdf
+++++++ by Atep Nawawi +++++++
Sabtu, 07 Juni 2008
Langganan:
Posting Komentar (Atom)

Tidak ada komentar:
Posting Komentar