[resolvido] Gerar todos registros no Word !

Moderador: Avelino Sampaio

Leonardo Favale
Mensagens: 10
Registrado em: 22 Out 2018, 16:56

[resolvido] Gerar todos registros no Word !

Mensagempor Leonardo Favale » 30 Out 2018, 19:58

Pessoal alguém sabe como faço para ao invés de gerar um registro atual.. gerar todos os registros da tabela/consulta tal tipo esse banco que fiz em anexo, gera apenas o registro atual.. gostaria de saber como faço para gerar todos eles.

Obs. Esqueçam formatação etc... pois é somente para testes/estudo mesmo, meu proposito principal é aprender como posso fazer para gerar todos os registros e não apenas o especifico/atual como está acontecendo hoje.

Segue o código que está no banco também:

Código: Selecionar todos

Private Sub Gerarword_Click()
 'Inicia o MS Word
 Set oApp = CreateObject("Word.Application") 'Cria e abre o objeto Word
 With oApp
 'Torna o MS Word visível
 Visible = True
 'Abre o documento base
  .Documents.Open (CurrentProject.Path & "\Recibo.doc")
 
'Move cada campo para o indicador definido no documento
.ActiveDocument.Bookmarks("Vencimento").Select
.Selection.Text = Forms!Recibo!Vencimento
.ActiveDocument.Bookmarks("Taxa01").Select
.Selection.Text = Forms!Recibo!Taxa01
.ActiveDocument.Bookmarks("Valor01").Select
.ActiveDocument.Bookmarks("Taxa02").Select
.Selection.Text = Forms!Recibo!Taxa02
.ActiveDocument.Bookmarks("Valor02").Select
.Selection.Text = Forms!Recibo!Valor02
.ActiveDocument.Bookmarks("Taxa03").Select
.Selection.Text = Forms!Recibo!Taxa03
.ActiveDocument.Bookmarks("Valor03").Select
.Selection.Text = Forms!Recibo!Valor03
.ActiveDocument.Bookmarks("Taxa04").Select
.Selection.Text = Forms!Recibo!Taxa04
.ActiveDocument.Bookmarks("Valor04").Select
.Selection.Text = Forms!Recibo!Valor04
.ActiveDocument.Bookmarks("CPF").Select
.Selection.Text = Forms!Recibo!CPF
.ActiveDocument.Bookmarks("Nome").Select
.Selection.Text = Forms!Recibo!Nome
.ActiveDocument.Bookmarks("Parcela01").Select
.Selection.Text = Forms!Recibo!Parcela01
.ActiveDocument.Bookmarks("Parcela02").Select
.Selection.Text = Forms!Recibo!Parcela02
.ActiveDocument.Bookmarks("Parcela03").Select
.Selection.Text = Forms!Recibo!Parcela03
.ActiveDocument.Bookmarks("Parcela04").Select
.Selection.Text = Forms!Recibo!Parcela04
.ActiveDocument.Bookmarks("Total").Select
.Selection.Text = Forms!Recibo!Total

'Salva o arquivo gerado
.ActiveDocument.SaveAs ("C:\Users\Usuário\Desktop\Recibo") & "\" & "ReciboPronto " & Replace(Me.Código, "/", "-") & ".doc"
MsgBox "Documento WORD gerado com sucesso...", vbInformation
'Fecha o documento
.ActiveDocument.Close
.WindowState = wdWindowStateMaximize
'Fecha o Word
oApp.Quit

End With

End Sub

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Damasceno Jr.
Mensagens: 436
Registrado em: 08 Jun 2015, 01:30
Localização: Medicilândia-Pará

Re: Gerar todos registros no Word !

Mensagempor Damasceno Jr. » 01 Nov 2018, 11:37

O código mostra que o arquivo é gerado a partir de informações do formulário aberto
Código:
.Selection.Text = Forms!Recibo!Taxa04


Para vários registros, abra um recordset e aponte os campos da sua tabela/consulta.
Quanto mais o tempo passa, mais descubro e mais me apaixono por MS Access.

Leonardo Favale
Mensagens: 10
Registrado em: 22 Out 2018, 16:56

Re: Gerar todos registros no Word !

Mensagempor Leonardo Favale » 06 Nov 2018, 11:35

Obrigado ! Consegui resolver ! Abraço !

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Formulários”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 8 visitantes