Pessoal eu utilizava o Crystal Reports 4,5 (aquele que vem no Visual Basic 6) para imprimir relatórios. No entanto, eu instalei a versão 8,5 do Crystal e não consigo imprimir usando a mesma fórmula. Vejam:

 

 Crystalreport1.ReportFileName = App.Path & "relatorio.rpt"
    Crystalreport1.Destination = crptToWindow
    Crystalreport1.WindowState = crptMaximized
    If Text1.Text <> "Todos" Then
        Crystalreport1.SelectionFormula = "{Tabela.Campo} ='" & Text1 & "'"
    End If
    Crystalreport1.RetrieveDataFiles
    Crystalreport1.WindowTitle = "Relatório Exemplo"
    Crystalreport1.Action = 1

 

Onde eu errei????

mas, qual errro da dando? eu uso o 8.5 desse jeito ai e nao da errro nao

Ué, desse jeitinho mesmo. Vou olhar aqui.

Vc adicionou os componentes e fez as referencias no seu projeto ?

   Acho que sim mano, eu na verdade esquecí como faz isso e agora estou apanhando muito.