FORMULA PARA NUMERAR PAGINA CRYSTAL REPORT VB
Fiz um relatório no Crystal Report onde precisa que tenha as páginas numeradas. Por ser um livro vai de 1 a 300, sendo que é impresso diariamente. Precisaria saber se alguém já teve o mesmo problema e poderia me auxliar. No formulário tenho um field chamado {@folhas}.
Tentei usar a seguinte fórmula
Report.ParameterFields.GetItemByName("folhas").AddCurrentValue nextPage
Mas não funcionou muito bem.
Tentei usar a seguinte fórmula
Report.ParameterFields.GetItemByName("folhas").AddCurrentValue nextPage
Mas não funcionou muito bem.
Na sua formula no Crystal Report utilizando (Basic Sintax) coloque:
formula = "Página " & totext(PageNumber,0)
ISTO DEVE RESOLVER...
formula = "Página " & totext(PageNumber,0)
ISTO DEVE RESOLVER...
Rapaz não funciona. Eu teria que jogar no formulário, é a conclusão que estou chegando. Por que posso ter 3 páginas, e elas podem começar como pagina 4, 5, 6. O que não estou conseguindo visualizar é como fazer isso. Como eu faria para passar um valor para o campo {@folhas} e somar a PageNumber do Crystal mais esse valor?
MIGUELFAL, se eu entendi bem, então faça o seguinte:
Crie outra formula de nome Valor e depois na formula @Folhas faça a seguinte modificação:
formula = "Página " & totext(PageNumber + @Valor)
Se vc for passar o valor pelo Visual Basic é assim:
dim iValor as integer
iValor=3
nomerpt.Formulas(0) = "Valor = " & iValor
nomerpt.action=1
se for colocar direto no Crystal basta colocar o valor direto na Formula @Valor
Qualquer dúvida poste.
Crie outra formula de nome Valor e depois na formula @Folhas faça a seguinte modificação:
formula = "Página " & totext(PageNumber + @Valor)
Se vc for passar o valor pelo Visual Basic é assim:
dim iValor as integer
iValor=3
nomerpt.Formulas(0) = "Valor = " & iValor
nomerpt.action=1
se for colocar direto no Crystal basta colocar o valor direto na Formula @Valor
Qualquer dúvida poste.
Tenta isto:
"Página " & replace(cstr(PageNumber), ",00", "") & " de " & replace(cstr(TotalPageCount), ",00", "")
direto numa Formula de nome Página.
"Página " & replace(cstr(PageNumber), ",00", "") & " de " & replace(cstr(TotalPageCount), ",00", "")
direto numa Formula de nome Página.
Frau,
Tentei fazer o que vc explicou. Mas há algumas diferenças, não sei se é a versão do Crystal. O que estou usando é o 8. No formulário eu tenho o field @folhas. Na fórmula, eu coloquei assim,
totext(PageNumber + @valor)
onde o @valor é um field que foi criado.
Lá no código em VB, qdo faça menção ao report.
Report.FormulaFields.item(9).Text = "1"
Onde 9 é o valor.
Acho que o erro está aÃÂÂ.
Não sei se teria que usar algo como Report.RecordSelectionFormula = "@valor=" & 1
Apesar que tentei, mas não funcionou.
Obrigado
Tentei fazer o que vc explicou. Mas há algumas diferenças, não sei se é a versão do Crystal. O que estou usando é o 8. No formulário eu tenho o field @folhas. Na fórmula, eu coloquei assim,
totext(PageNumber + @valor)
onde o @valor é um field que foi criado.
Lá no código em VB, qdo faça menção ao report.
Report.FormulaFields.item(9).Text = "1"
Onde 9 é o valor.
Acho que o erro está aÃÂÂ.
Não sei se teria que usar algo como Report.RecordSelectionFormula = "@valor=" & 1
Apesar que tentei, mas não funcionou.
Obrigado
Miguel,
No site oficial do Crytal Reports tem um .PDF (link abaixo) com um monte de links para projetos exemplo em VB6 com CR 8, 8.5 e 9. Pode ser que tenha algum exemplo que resolva o seu problema.
http://support.businessobjects.com/communityCS/TechnicalPapers/apps_rdc.pdf.asp
At,
No site oficial do Crytal Reports tem um .PDF (link abaixo) com um monte de links para projetos exemplo em VB6 com CR 8, 8.5 e 9. Pode ser que tenha algum exemplo que resolva o seu problema.
http://support.businessobjects.com/communityCS/TechnicalPapers/apps_rdc.pdf.asp
At,
MIGUELFAL, com havia citado antes
no vb ficaria assim:
Report.Formulas(0) = "Incremento=" & iValor
O Crystal que uso tb é o 8.
Citação:o @Valor não pode ser um campo do banco (Field). Para resolver crie uma outra formula ex.: @IncrementoCrie outra formula de nome Valor
no vb ficaria assim:
Report.Formulas(0) = "Incremento=" & iValor
O Crystal que uso tb é o 8.
Frau,
Fiz o que vc orientou. Veja o anexo, esse é um dos problemas que estou me deparando.
Ao fazer um check da fórmula do @Folha, acusa esse erro que está na imagem.
Fiz o que vc orientou. Veja o anexo, esse é um dos problemas que estou me deparando.
Ao fazer um check da fórmula do @Folha, acusa esse erro que está na imagem.
OI MIGUELFAL, pela imagem que vc postou já sei onde está o erro:
Conforme minha primeira postagem
Dá uma olhada neste anexo com a correção:
Conforme minha primeira postagem
Citação:utilizando (Basic Sintax) coloque:
Dá uma olhada neste anexo com a correção:
Frau,
Nesse parte:
nomerpt.Formulas(0) = "Valor = " & iValor
nomerpt.action=1
Fórmulas seria um método do report?
O que eu consigo ver no meu código é a seguinte sintaxe:
report.FormulaFields.Item(9).Text = "1"
onde o item(9) corresponde a formula valor.
Obrigado
Nesse parte:
nomerpt.Formulas(0) = "Valor = " & iValor
nomerpt.action=1
Fórmulas seria um método do report?
O que eu consigo ver no meu código é a seguinte sintaxe:
report.FormulaFields.Item(9).Text = "1"
onde o item(9) corresponde a formula valor.
Obrigado
Tópico encerrado , respostas não são mais permitidas