Impressão De Relatório

[ToPronto N'Area]

Olá moçada eu tenho um, codigo de procura por intervalo de datas, e eu quero imprimir os resultado obtidos!

O problema é que usando uma activex do visual report da pra fazer tranquilo sem probrema, só que neste sistema em que eu estou trabalhando eu estou utilizando o Cristal 10, vocês sabem me dizer como eu faço isto???

E outra coisa aproveitando a deixa, como que eu faço para o relatorio do cristal da a opção de escolher a impressora e não somente imprimir na padrão?

Valeu moçada brigadão a todos que me ajudarem!

[ToPronto N'Area]

Pessoal consegui resolver o meu problema!!!

Ficou assim

Dim SqlImp as string

SqlImp = "{contasreceber.emissao}> date(" & Year(FrmConRec.DtPPrazo(0).Value) _

& ", " & Month(FrmConRec.DtPPrazo(0).Value) & ", " & _

Day(FrmConRec.DtPPrazo(0).Value) & ") and {contasreceber.emissao}< date(" & _

Year(FrmConRec.DtPPrazo(1).Value) & ", " & Month(FrmConRec.DtPPrazo(1).Value) _

& ", " & Day(FrmConRec.DtPPrazo(1).Value) & ") "

Report.RecordSelectionFormula = SqlImp

Aqui eu converto a data pra uma forma onde o cristal entendi. e pronto ele seleciona todos os itens entre as datas.

é aqui que mora o problema. ele seleciona todos registros entre estas datas!

E eu preciso colocar uma variavel informando que é somente as que estão pagas!!!

Dai eu tentei desta forma!

SqlImp = "{contasreceber.emissao}> date(" & Year(FrmConRec.DtPPrazo(0).Value) _

& ", " & Month(FrmConRec.DtPPrazo(0).Value) & ", " & _

Day(FrmConRec.DtPPrazo(0).Value) & ") and {contasreceber.emissao}< date(" & _

Year(FrmConRec.DtPPrazo(1).Value) & ", " & Month(FrmConRec.DtPPrazo(1).Value) _

& ", " & Day(FrmConRec.DtPPrazo(1).Value) & ") and {contasreceber.pago} like '" & "-1" & "'"

Porem ele não aceita a concatenação que estou fazendo com o valor de true que é "-1".

Ele da um erro loko! de que esta faltando uma string.

alguém sabe me dizer como eu faço isto!

Antes que alguém pergunte, o campo no bd do access esta como sim/não que é o boolean

e eu já tentei com true e false também e num deu nada, bom conto com a ajuda de vocês!

Abraços e obrigado desde já!