Olha só um exemplo bem simples, no meu caso usando o RDC do crystal 9 mas acredito que os componentes tenham o mesmo nome para o CR10:
Crie um Form novo e faça as seguintes referências:
- Crystal Report Viewer Control 9
- Crystal Reports 9 ActiveX Design Runtime Library
Inclua o viewer no seu form e o seguinte código:
Option Explicit
Public apl As New CRAXDRT.Application
Public rpt As New CRAXDRT.Report
Private Sub Form_Load()
Set rpt = apl.OpenReport(App.Path & "ptMeuRelat.RPT")
CRViewer.ReportSource = rpt
CRViewer.ViewReport
CRViewer.Zoom 1
End Sub
Private Sub Form_Resize()
CRViewer.Top = 0
CRViewer.Left = 0
CRViewer.Height = ScaleHeight
CRViewer.Width = ScaleWidth
End Sub
O objeto rpt faz referência ao seu relatório, através dele você irá passar parâmetros, filtros, fórmulas, formatações, logon com BD, etc ...