Estou fazendo uma pequena agenda e numa combobox categoria quando eu seleciono aparece em outra lista todos os contatos pela categoria que selecionei. Ex: seleciono na combobox categoria de "amigos" e em outra lista mostra dentre o total de contatos somente os contatos de "amigos". Agora, eu criei um botão "imprimir Categoria" para impressão de todos os contatos com deterinada categoria selecionada. Meu código deu erro o que pode estar acontecendo, se alguem souber uma dica agradeço, obrigado. Uso vb 6, DAO, e cristal reports para fazer formulários.

 

Este código deu erro:

 

Private Sub cmdImprimirCategoria_Click()

 

'Nesta linha de código pretendo imprimir todos contatos por categoria que selecion na combobox de categoria.

CrystalReport1.SelectionFormula = "{Tabcontatos.categoria}= " & cbProcurarTipoCategoria.Text
     CrystalReport1.DataFiles(0) = App.Path & "Agenda.mdb"
     CrystalReport1.ReportFileName = App.Path & "RelatorioContatos.rpt"
     CrystalReport1.Destination = 0
     CrystalReport1.Action = 1
  end sub

ver ser é isto que vc quer

...

...

    Select Case txtVen
        Case "Todos"
            Cr1.SelectionFormula = "{fichas.loj_fic}='" & comLoj.Text & "' and {fichas.sta_fic}='Cobranca'"
            Cr1.Formulas(0) = "ven_loj ='" & txtVen.Text & "'"
        Case Else
            Cr1.SelectionFormula = "{fichas.loj_fic}='" & comLoj.Text & "' and {fichas.sta_fic}='Cobranca' and {fichas.cli_fic}='" & txtVen.Text & "'"
            Cr1.Formulas(0) = "ven_loj ='" & txtVen.Text & "'"
    End Select
   
' ordem por ficha/data/placa

    If optOpcoes(0).Value Then
        Cr1.SortFields(0) = "+{fichas.cod_fic}" ' ficha
    ElseIf optOpcoes(0).Value Then
        Cr1.SortFields(0) = "+{fichas.ent_fic}" ' data
    ElseIf optOpcoes(2).Value Then
        Cr1.SortFields(0) = "+{fichas.pla_fic}" ' placa
    End If

...

...

Rogerio ela isto que vc queria

Parece que sim, vou testar ainda aqui e te digo.