Passar a data atual via código VB6

[frias]

Pessoal, bom dia!

No PAGE FOOTER do meu relatório eu tenho um TEXT que informo a data que o relatório foi gerado: "Gerado em 04/06/2009". Só que pra isso eu fiz uma gambiarra adicionando um TEXT (Text5) e um FIELD:PRINT DATE.

Gostaria de saber se teria como eu passar direto do VB6 o valor pra esse Text5, como por exemplo:

Text5 = "Gerado em " & Now

Agradeço desde já!

[]´s

Editado Junho 4, 2009 por frias

[kuroi]

você pode usar um campo parametro pra isso. do tipo texto. ai você passa o valor assim:

crRep.ParameterFields(1).AddCurrentValue "Gerado em " & Now

onde crRep é seu objeto report.

Editado Junho 8, 2009 por kuroi

[frias]

Kuroi, sou novato no Crystal e tenho algumas dúvidas...

Quando você disse para eu criar um campo parâmetro para isso, você quis dizer que eu devo criar um PARAMETER FIELDS dentro do Crystal?

Outra dúvida, esse exemplo que você deu ParameterFields(1), aonde que eu coloco o índice desse Parameter Fields no Crystal?

Vlw!!!

[]´s

Ricardo Frias

[kuroi]

Quando você disse para eu criar um campo parâmetro para isso, você quis dizer que eu devo criar um PARAMETER FIELDS dentro do Crystal?

é isso mesmo.

Outra dúvida, esse exemplo que você deu ParameterFields(1), aonde que eu coloco o índice desse Parameter Fields no Crystal?

o indice segue a ordem q os campos aparecem, de cima pra baxo, no field explorer. o indice comeca no 1, o primero de todos os campos parametros la em cima é o indice 1. pra mudar os indices, você pode mudar as posicoes dos campos com umas flechinhas pra cima e pra baixo nos botoes do field explorer.

[frias]

Valeu Kuroi funcionou certinho!!! :rolleyes:

[]´s