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
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3