MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


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

    adriano_byte
    adriano_byte
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  adriano_byte 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:codigo daqui do forum



    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)
    adriano_byte
    adriano_byte
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  adriano_byte 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:

    essa é do mestre Criquio

      Data/hora atual: 29/3/2024, 00:32