DUVIDA SOBRE CRYSTAL 4.6
Bom tarde pessoal !!
Estou com uma dúvida a respeito de como gerar etiqueta no Crystal.
Exemplo:
Gerar varias ou uma qtde definida de etiquetas para um mesmo aluno.
"Só consigo gerar uma para cada aluno."
Estou usando o seguinte código:
End if
Agradeço se alguem puder me ajudar.
Claudiney.
Estou com uma dúvida a respeito de como gerar etiqueta no Crystal.
Exemplo:
Gerar varias ou uma qtde definida de etiquetas para um mesmo aluno.
"Só consigo gerar uma para cada aluno."
Estou usando o seguinte código:
If Cmbturma.Text = "Todos" Then
Crptetiquetas.WindowTitle = "Etiquetas p/ material do aluno"
Crptetiquetas.DataFiles(0) = caminho & "Escola.mdb"
Crptetiquetas.ReportFileName = caminho & "etiquetamaterial.rpt"
Crptetiquetas.SortFields(0) = "+{alunos.nome}"
Crptetiquetas.SelectionFormula = "{alunos.situacao}<> 'D'"
Crptetiquetas.WindowState = crptMaximized
Crptetiquetas.Action = 1
Crptetiquetas.SelectionFormula = ""
Else Cmbturma.Text = "Individual" Then
Crptetiquetas.WindowTitle = "Etiquetas p/ material do aluno"
Crptetiquetas.DataFiles(0) = caminho & "Escola.mdb"
Crptetiquetas.ReportFileName = caminho & "etiquetamaterial.rpt"
Crptetiquetas.SelectionFormula = "{alunos.codigo}= " & lblcod.caption
Crptetiquetas.WindowState = crptMaximized
Crptetiquetas.Action = 1
Crptetiquetas.SelectionFormula = "" End if
Agradeço se alguem puder me ajudar.
Claudiney.
Bom, colega, eu ja respondi questoes semelhantes a sua aqui no forum.
E foi sempre a mesma resposta. A maneira como eu faco e para simplificar a impressao:
Coloco os dados que eu quero imprimir em uma tabela no access. Tudo atraves de comandos via VB. Depois e so imprimir os dados sem muita complicacao. A dica entao eh enviar os dados para a tabela ja montados. Por exemplo, para mandar 10 etiquetas para o mesmo aluno.
for a = 1 to 10
ra.addnew
ra!NomeAluno = "Joao"
...
ra.update
next a
Espero ter contribuido.
E foi sempre a mesma resposta. A maneira como eu faco e para simplificar a impressao:
Coloco os dados que eu quero imprimir em uma tabela no access. Tudo atraves de comandos via VB. Depois e so imprimir os dados sem muita complicacao. A dica entao eh enviar os dados para a tabela ja montados. Por exemplo, para mandar 10 etiquetas para o mesmo aluno.
for a = 1 to 10
ra.addnew
ra!NomeAluno = "Joao"
...
ra.update
next a
Espero ter contribuido.
Tópico encerrado , respostas não são mais permitidas