futura , faz o seguinte, que assim deu certinho aqui no meu, usando o crview, veja so:

 

Private Sub Command1_Click()
    Imprimir App.Path & "categorias.rpt"
End Sub

 

Public Sub Imprimir(Relatorio As String)
    Set Report = Aplicacao.OpenReport(Relatorio) 

    Report.SQLQueryString = "select * from categories where categoryid=1"
    CRViewer1.ReportSource = Report 

    CRViewer1.ViewReportImpresso
End Sub

Cardoso, ja ouvi falar muito do crview do crystal, mas nunca usei, ainda distribuo a crystl32.ocx. O componente crviewer é melhor que a ocx ? todas as funcões que tem na ocx, são mantidas ?, tenho que mudar algo nos rpts ?.

Na verdade sabe aqlas consultas q vc faz na maum no acess? entaum tem como criar elas via codigo passando a string q vc quiser.... a diferenca disso pra um tabela eh q vc naum precisa reiniciar a conexao com o banco

me add no msn q te passo o codigo: mduscov@hotmail.com

cardoso, copiei o seu exemplo, e coloquei o nome do meu rpt, e inseri um componente viewer no form, mas não deu certo. No caso o report, tenho que declarar algo ?, e o que seria "aplicacao" ???.