--- In Programmer-VB@yahoogroups.com, "Rudi Hartono Simamora"
<rudi...@...> wrote:
>
> Dim Report As New CrystalReport3
>
> Private Sub Form_Load()
> set Report = New CrystalReport3
> Screen.MousePointer = vbHourglass
> CRViewer1.ReportSource = Report
> CRViewer1.ViewReport
> Screen.MousePointer = vbDefault
'**************tambahin tulisan dibawah
> Report.Discardsaved
'**************entah Discardsaved atau apa ...
'**************pokoknya ada Discard2nya gitu lah.
'**************semoga bermanfaat
'*******salam kenal riosh...@yahoo.com
> 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
>
