OLA GALERA VB ME AJUDE POR FAVOR
Estou fazendo um siteminha de certificado e tenho que criar o certificado em doc. até ai blz o programa preenche com nome rg nome do curso e carga horaria certinho so que quando chega na hora de preencher as disciplinas ele preenche um na frente do outro e eu queria que preenchesse um em baixo do outro assim:
certificamos que o sr @nome rg @rg concluiu o curso de @nomedocurso com carga horaria de @cargahoraria
Disiciplina
@disciplina
a disciplina ele preneche portuguesmatematicafisica tudo junto e eu queria assim
portugues
matematica
fisica
um abaixo do outro. Ocodigo que estou usando para criar o doc e este:
Set objWord = New Word.Application
objWord.Documents.Open App.Path & [Ô]\Certificados\Guarda.doc[Ô]
objWord.Visible = True
objWord.WindowState = wdWindowStateMaximize
Dim strDiscipina As String
frmCadastros.datGrade.Recordset.MoveFirst
Do While Not frmCadastros.datGrade.Recordset.EOF
[ô]Incrementar valor da 3a coluna
strDiscipina = strDiscipina + (frmCadastros.datGrade.Recordset.Fields(2))
frmCadastros.datGrade.Recordset.MoveNext
Call Troca([Ô]@Disciplina[Ô], strDiscipina)
Loop
frmCadastros.datGrade.Recordset.MoveFirst
Call Troca([Ô]@Nome[Ô], frmCadastros.txtNome.Text)
Call Troca([Ô]@RG[Ô], frmCadastros.txtRG.Text)
Call Troca([Ô]@NomedoCurso[Ô], frmCadastros.datCursos.Recordset.Fields(3))
Call Troca([Ô]@CargaHoraria[Ô], frmCadastros.datCursos.Recordset.Fields(5))
Call Troca([Ô]@CargaHoraria1[Ô], strCargaHoraria)
Call Troca([Ô]@Data[Ô], [Ô]Piracicaba, [Ô] & DatePart([Ô]D[Ô], Date) & [Ô] de [Ô] & MonthName(Month(Date)) & [Ô] de [Ô] & DatePart([Ô]yyyy[Ô], Date))
Set objWord = Nothing [ô]Libera a memória
Ajuda eu ai galera. DESDE JA OBRIGADO
certificamos que o sr @nome rg @rg concluiu o curso de @nomedocurso com carga horaria de @cargahoraria
Disiciplina
@disciplina
a disciplina ele preneche portuguesmatematicafisica tudo junto e eu queria assim
portugues
matematica
fisica
um abaixo do outro. Ocodigo que estou usando para criar o doc e este:
Set objWord = New Word.Application
objWord.Documents.Open App.Path & [Ô]\Certificados\Guarda.doc[Ô]
objWord.Visible = True
objWord.WindowState = wdWindowStateMaximize
Dim strDiscipina As String
frmCadastros.datGrade.Recordset.MoveFirst
Do While Not frmCadastros.datGrade.Recordset.EOF
[ô]Incrementar valor da 3a coluna
strDiscipina = strDiscipina + (frmCadastros.datGrade.Recordset.Fields(2))
frmCadastros.datGrade.Recordset.MoveNext
Call Troca([Ô]@Disciplina[Ô], strDiscipina)
Loop
frmCadastros.datGrade.Recordset.MoveFirst
Call Troca([Ô]@Nome[Ô], frmCadastros.txtNome.Text)
Call Troca([Ô]@RG[Ô], frmCadastros.txtRG.Text)
Call Troca([Ô]@NomedoCurso[Ô], frmCadastros.datCursos.Recordset.Fields(3))
Call Troca([Ô]@CargaHoraria[Ô], frmCadastros.datCursos.Recordset.Fields(5))
Call Troca([Ô]@CargaHoraria1[Ô], strCargaHoraria)
Call Troca([Ô]@Data[Ô], [Ô]Piracicaba, [Ô] & DatePart([Ô]D[Ô], Date) & [Ô] de [Ô] & MonthName(Month(Date)) & [Ô] de [Ô] & DatePart([Ô]yyyy[Ô], Date))
Set objWord = Nothing [ô]Libera a memória
Ajuda eu ai galera. DESDE JA OBRIGADO
Primeiramente, siga as regras do fórum.:
TÃtulos incorretos
Por favor não utilize tÃtulos para seu tópico que não ajudem em nada para quem pode te ajudar. Não coloque tÃtulos como [Ô]Help[Ô], [Ô]Socorro[Ô], [Ô]Pelo Amor de DEUS[Ô] pois isto só dificulta as pessoas interessadas em ajudar à olhar seu tópico.
Altere o tÃtulo deste tópico para um tÃtulo intuitivo e relacionado ao assunto.
Agradecido.
Agora, quanto a sua dúvida, você já tentou pular uma linha após cada disciplina usando o vbNewLine?
Por favor não utilize tÃtulos para seu tópico que não ajudem em nada para quem pode te ajudar. Não coloque tÃtulos como [Ô]Help[Ô], [Ô]Socorro[Ô], [Ô]Pelo Amor de DEUS[Ô] pois isto só dificulta as pessoas interessadas em ajudar à olhar seu tópico.
Altere o tÃtulo deste tópico para um tÃtulo intuitivo e relacionado ao assunto.
Agradecido.
Agora, quanto a sua dúvida, você já tentou pular uma linha após cada disciplina usando o vbNewLine?
strDiscipina = strDiscipina + (frmCadastros.datGrade.Recordset.Fields(2)) & vbNewLine
VALEU!
Tópico encerrado , respostas não são mais permitidas