sekedar menambahkan
Dim Report As New CrystalReport3
Private Sub
Form_Load()
set Report = New
CrystalReport3
Screen.MousePointer =
vbHourglass
CRViewer1.ReportSou rce =
Report
CRViewer1.ViewRepor t
Screen.MousePointer = vbDefault
CRViewer1. DiscardSavedData 'tambahkan ini saja pasti bisa
End Sub
--- On Tue, 12/23/08, Rudi Hartono Simamora <rudi...@yahoo.com.au> wrote:
From: Rudi Hartono Simamora <rudi...@yahoo.com.au>
Subject: Re: [Programmer-VB] Refresh cr
To: Programmer-VB@yahoogroups.com
Date: Tuesday, December 23, 2008, 6:16 PM
Dim Report As New CrystalReport3
Private Sub
Form_Load()
set Report = New
CrystalReport3
Screen.MousePointer =
vbHourglass
CRViewer1.ReportSou rce =
Report
CRViewer1.ViewRepor t
Screen.MousePointer = vbDefault
End Sub
Rudi Hartono
----- Original Message -----
From:
iwan gunawan
To: indoprog-vb@ 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.ReportSou rce =
Report
CRViewer1.ViewRepor t
Screen.MousePointer = vbDefault
End Sub
Private Sub
Form_Resize( )
CRViewer1.Top =
1200
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width =
ScaleWidth
End Sub
