PASSAR TEXTO QUALQUER PARA RELATORIO CRYSTAL XI
Boa tarde pessoal
Pode ser besta minha dúvida...mas eu num achei nada aki..
O q eu tenho q fazer pra passar um texto de um label ou textbox da minha tela do vb para um relatório do crystal?
Grato
Vc pode criar um Fórmula sem código e usando o Crystal Report Control serria assim:
Rel.DataFiles(0) = App.Path & [Ô]\BD.mdb[Ô]
Rel.Destination = 0
Rel.ReportFileName = pathRel & [Ô]\pagtossinteticogrupo.rpt[Ô]
[txt-color=#0000f0]Rel.Formulas(0) = [Ô]TituloRel = [ô]Contas a Pagar - Pagas (Todas)[ô][Ô][/txt-color]
[txt-color=#0000f0]Rel.Formulas(0) = [Ô]PERIODO = [ô]PerÃodo de [Ô] & DATAI & [Ô] ate [Ô] & DATAF & [Ô][ô][Ô][/txt-color]
Rel.WindowState = crptMaximized
Rel.Action = 1
TituloRel e PERIODO são fórmulas em código no Crystal
Rel.DataFiles(0) = App.Path & [Ô]\BD.mdb[Ô]
Rel.Destination = 0
Rel.ReportFileName = pathRel & [Ô]\pagtossinteticogrupo.rpt[Ô]
[txt-color=#0000f0]Rel.Formulas(0) = [Ô]TituloRel = [ô]Contas a Pagar - Pagas (Todas)[ô][Ô][/txt-color]
[txt-color=#0000f0]Rel.Formulas(0) = [Ô]PERIODO = [ô]PerÃodo de [Ô] & DATAI & [Ô] ate [Ô] & DATAF & [Ô][ô][Ô][/txt-color]
Rel.WindowState = crptMaximized
Rel.Action = 1
TituloRel e PERIODO são fórmulas em código no Crystal
Grande Laia
Vou testar aqui...e falo pra ti
mto grato
Cara...
Dá que o objeto n suporta esse método!
Set rptRep = New CRAXDDRT.Report
Set rptApp = New CRAXDDRT.Application
Set rptRep = rptapp.OpenReport(path)
essa é a sintaxe de abertura
é crystal 11
Consegui
report.FormulaFields.item(1).Text = [Ô] [ô] Texto [ô] [Ô] [ô]onde 1 é a ordem das fórmulas e nunca esqueça dos apóstofes ( ou vulgo [ô]aspas simples[ô]) ehua uehauehauhe uauhea
Valew Laia
Tópico encerrado , respostas não são mais permitidas