relatorio de datagrid

[Leandro_Pirozzi]

Existe a possibilidade de se gerar um relatório através de um datagrid preenchido?

esse codigo somente esta trazendo por data.

Se tiver como fazer com o datagrid já me facilita e muito.

Obrigado!!

Dim diai

Dim mesi

Dim anoi

Dim diaf

Dim mesf

Dim anof

diai = Day(DTPicker1.Value)

mesi = Month(DTPicker1.Value)

anoi = Year(DTPicker1.Value)

diaf = Day(DTPicker2.Value)

mesf = Month(DTPicker2.Value)

anof = Year(DTPicker2.Value)

'Caminho do Banco de Dados

CrystalReport1.DataFiles(0) = App.Path & "\CONTATOS.mdb"

'Selecionamos os Registros que se enquadram entre as datas

CrystalReport1.SelectionFormula = "{CONTATOS_HISTORICO.ASSESSOR}= '" & Login & "'" & _

" and {CONTATOS_HISTORICO.DATATAREFA} >= Date(" & anoi & "," & mesi & "," & diai & ")" & _

" and {CONTATOS_HISTORICO.DATATAREFA} <= Date(" & anof & "," & mesf & "," & diaf & ")"

'Caminho do Relatório

CrystalReport1.ReportFileName = App.Path & "\HistoricoPERS.rpt"

CrystalReport1.WindowTitle = "Relatório de PERSPECTIVAS"

CrystalReport1.Destination = 0

CrystalReport1.Action = 1

Exit Sub

[kuroi]

de novo, com o CRAXDRT você consegue.

da forma como é explicado aqui: http://scriptbrasil.com.br/forum/index.php...st&p=477615

você não vai pegar os dados do grid e sim do recorset vinculado a ele.

EDITADO:

leandro com o CRControl q você ta usando, acho q você consegue o mesmo efeito com o metodo SetTablePrivateData().

da uma checada se você consegue usa-lo ai.

Edited April 2, 2009 by kuroi