Dim Report As New CrystalReport3 Private Sub Form_Load() set Report = New CrystalReport3 Screen.MousePointer = vbHourglass CRViewer1.ReportSource = Report CRViewer1.ViewReport Screen.MousePointer = vbDefault End Sub
Rudi Hartono ----- Original Message ----- From: iwan gunawan To: indoprog...@yahoogroups.com ; programmer-VB@yahoogroups.com Sent: Monday, August 11, 2008 1:32 PM Subject: [Programmer-VB] Refresh cr Guys, tolongin gw donk, gimana caranya kalo crviewer1 bisa langsung refresh tanpa hrs tekan tanda petir di cristal reportnya. Shre donk elmunya, thanks b4. di bawah ini potongan kodingnya, tambahain yah. Dim Report As New CrystalReport3 Private Sub Form_Load() Screen.MousePointer = vbHourglass CRViewer1.ReportSource = Report CRViewer1.ViewReport Screen.MousePointer = vbDefault End Sub Private Sub Form_Resize() CRViewer1.Top = 1200 CRViewer1.Left = 0 CRViewer1.Height = ScaleHeight CRViewer1.Width = ScaleWidth End Sub