









Dim crxApplication As New CRAXDRT.Application 
Dim crxReport As CRAXDRT.Report 
' Retrieving the report object and viewing the report: 
Private Sub Form_Load() 
Set crxReport = crxApplication.OpenReport("C:\Program Files\Crystal Decisions\Crystal Reports 9\Samples\En\Reports\Feature Examples\Percentages.rpt") 
Me.WindowState = 2 
CRViewer91.ReportSource = crxReport 
CRViewer91.ViewReport 
End Sub 
Private Sub Form_Resize() 
' Resizing the viewer 
With CRViewer91 
.Left = 0 
.Top = 0 
.Width = ScaleWidth 
.Height = ScaleHeight 
End With 
End Sub 
Private Sub Form_Unload(Cancel As Integer) 
Set crxReport = Nothing 
End Sub 



Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 6