MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [RESOLVIDO]gerar relatório do access para o word

    Compartilhe
    avatar
    adriano_byte
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 115
    Registrado : 12/12/2013

    [RESOLVIDO]gerar relatório do access para o word

    Mensagem  adriano_byte em 25/8/2018, 22:08

    Olá pessoal !

    estou querendo solucionar uma das minhas dúvidas sobre relatório no word com access. o código é o seguinte: eu já havia pego aqui no fórum mesmo, tentei adaptar mas não consegui ainda:[Você precisa estar registrado e conectado para ver este link.]



    Private Sub Comando16_Click()


    Código:
    Dim oApp As Object 'Cria uma variável objeto
    Dim PastaArq, ArqModelo

        'seta pasta do banco de dados
        PastaArq = CurrentProject.Path  = "E:\vba\relatorioword\relatorio.doc" ' esse é local do relatorio

        'Indicar nome do arquivo
        'Requerimento Padrão. Argumentos: Nome, Cargo e DataNascimento
        ArqModelo = "relatorio.doc"
            
        ' Inicia o MS Word
        Set oApp = CreateObject("Word.Application") 'Cria e abre o objeto Word
        ' Torna o MS Word visível
        oApp.Visible = True
        ' Abre o documento base
        oApp.Documents.Add (PastaArq & "\" & ArqModelo)
            
        'Move cada campo para o indicador definido no documento
        oApp.ActiveDocument.Bookmarks("id").Select
        oApp.Selection.Text = (id)
        oApp.ActiveDocument.Bookmarks("codigo").Select
        oApp.Selection.Text = (codigo)


        oApp.Application.Quit

        Set oApp = Nothing


    End Sub


    bom!

    eu ja coloquei o indicador la no doc do word. mas estou tentando tirar dados de uma tabela para gerar o relatorio. Alguem pode da uma luz?


    Última edição por adriano_byte em 25/8/2018, 23:13, editado 1 vez(es)
    avatar
    adriano_byte
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 115
    Registrado : 12/12/2013

    Re: [RESOLVIDO]gerar relatório do access para o word

    Mensagem  adriano_byte em 25/8/2018, 23:12

    encontrei um excelente exemplo do Mestre Criquio, irei adapta-lo. caso eu não retorne é pq ja foi resolvido desde já e a solução é essa aqui:

    [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: 19/11/2018, 05:54