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


2 participantes

    [Resolvido]Imprmir dados do Form Aberto para Word Automatico

    avatar
    flecha
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 304
    Registrado : 11/01/2012

    [Resolvido]Imprmir dados do Form Aberto para Word Automatico Empty [Resolvido]Imprmir dados do Form Aberto para Word Automatico

    Mensagem  flecha 4/3/2023, 10:23

    Olá,

    Não tenhoexperiência para achar como fazer, já tentei de todas as formas que já vi e nada.

    Tenho um Form com os Dados e preciso enviar alguns campos para um Doc Word  (Matriz)
    onde os campos escolhidos no Doc (Matriz) serão pesquisados no Form.

    Só falta Acertar o Campo EXERCICIO que no form esta como cboExercicio e eu não consigo referencia-lo
    na função.

    Eu tinha conseguido mas ele madava o Código do Exercicio e não o nome, no Word a inserção do Indicador de referência.

    Na
     Public Function MuniFuzil()
    Esta as referências para o preenchimento até deixei como Comentário as linhas para não dar o erro.

    Vou deixar o Exemplo para baixarem,

    Obrigado
    Anexos
    [Resolvido]Imprmir dados do Form Aberto para Word Automatico AttachmentDesktop 1.zip
    Corrigido Funcionando Recibo Word
    Você não tem permissão para fazer download dos arquivos anexados.
    (156 Kb) Baixado 2 vez(es)


    Última edição por flecha em 4/3/2023, 16:20, editado 3 vez(es) (Motivo da edição : Correção de grafia.)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3501
    Registrado : 13/12/2016

    [Resolvido]Imprmir dados do Form Aberto para Word Automatico Empty Re: [Resolvido]Imprmir dados do Form Aberto para Word Automatico

    Mensagem  Alexandre Fim 4/3/2023, 12:50

    Olá Norimar,
    Não há necessidade de utilizar o Word pois o Access possui uma ferramenta para relatórios, e ai você não precisa utilizar 2 programas (Access/Word).

    O exemplo que voce mandou está gerando erro, pois não encotrou a função, e acredito que faltam alguns objetos (formulario/tabelas/modulos e etc):
    [Resolvido]Imprmir dados do Form Aberto para Word Automatico Erro_f11



    Eu tinha conseguido mas ele madava o Código do Exercicio e não o nome, no Word a inserção do Indicador de referência.

    O combo "cboExercicio" foi montado com 2 colunas onde a coluna 0 é o Código e a coluna 1 é a Descrição, e no código vc tem que fazer assim:

    [CAMPO_DO_DOC] = "& cboExercicio.Column(1) &"

    Espero ter ajudado.

    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Imprmir dados do Form Aberto para Word Automatico Setinf11
    Sistemas e Tecnologia Ltda
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3501
    Registrado : 13/12/2016

    [Resolvido]Imprmir dados do Form Aberto para Word Automatico Empty Re: [Resolvido]Imprmir dados do Form Aberto para Word Automatico

    Mensagem  Alexandre Fim 4/3/2023, 14:36

    Norimar,

    Fiz algumas modificações no teu sistema e também o relatório de requisição de munição (que era no Word).

    Ao clicar no botão "Munição Fuzil",
    [Resolvido]Imprmir dados do Form Aberto para Word Automatico Fuzil110

    O sistema abre o relatório, inclusive com os botoes de impressão, exportar PDF e etc, filtrando pelo ID  do colaborador:
    [Resolvido]Imprmir dados do Form Aberto para Word Automatico Fuzil210

    Como disse anteriormente, não há necessidade de utilizar o Word para este trabalho.

    Espero ter ajudado.

    Segue versão

    Att,

    Alexandre Fim
    Anexos
    [Resolvido]Imprmir dados do Form Aberto para Word Automatico AttachmentExemplo_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (169 Kb) Baixado 31 vez(es)


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Imprmir dados do Form Aberto para Word Automatico Setinf11
    Sistemas e Tecnologia Ltda

    flecha gosta desta mensagem

    avatar
    flecha
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 304
    Registrado : 11/01/2012

    [Resolvido]Imprmir dados do Form Aberto para Word Automatico Empty Re: [Resolvido]Imprmir dados do Form Aberto para Word Automatico

    Mensagem  flecha 4/3/2023, 15:24

    Oi Alexandre,

    Foi vc que me ajudou a acertar esse programinha que até emite os Recibos como Relatorio.
    Estou usando até hoje.

    Nesse relatório do recibo de munições de Fuzil não esta pegando os dados da Quantidade [qtd ] em ao campo [arma2]

    O qtd faltou o campo txt no exemplo, agora coloquei, mas não carrega para o relatorio.
    O campo arma2 existe e tb não carrega para o relatório.

    Sempre apanhei com eees sistema de usar o Word, qq falha , para tudo.

    Vou adotar esse seu que eu comecei usar agoar e não tinha e com esse seu exemplo , vai se tornar oficial.
    Preciso aprender a montá-lo com as propriedades dos campos.

    OBS:  Faltou no Exemplo essa Função. Com sua dica alterei para cboExercicio.Column(1) e deu certo no WORD.

    Código:
    Public Function MuniFuzil()
    Dim oApp As Object 'Cria uma variável objeto

    ' 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 & "\MuniFuzil.doc")

    'Move cada campo para o indicador definido no documento
            .ActiveDocument.Bookmarks("NomeColab").Select
            .Selection.Text = Trim(CStr(Forms!frmColab!nomecolab))
            .ActiveDocument.Bookmarks("RGcolab").Select
            .Selection.Text = Trim(CStr(Format(Forms!frmColab![rgcolab], _
                      "##\.###\.###")))
            .ActiveDocument.Bookmarks("arma2").Select
            .Selection.Text = Trim(CStr(Forms!frmColab!arma2))
            
          
     .ActiveDocument.Bookmarks("Exercicio").Select
            .Selection.Text = Trim(CStr(Forms!frmColab!idexerc))
          

            .ActiveDocument.Bookmarks("qtd").Select
            .Selection.Text = Trim(CStr(Forms!frmColab!Txt_qtd))
            
    'Salva o arquivo gerado
            .ActiveDocument.SaveAs "C:\Word\" & Forms!frmColab!rgcolab & "_MuniFuzil" & ".doc"
    'Fecha o documento
            .ActiveDocument.Close
             oApp.Quit
             Set oApp = Nothing
    'Abre o documento
           ' Shell "C:\Arquivos de programas\Microsoft Office\Office\WINWORD.EXE C:\Word\" & Me.RG & ".doc", vbMaximizedFocus
           ' Shell "D:\Arquivos de programas\Microsoft Office\Office11\WINWORD.EXE C:\Word\" & Me.RG & "_COLETE_CARGA" & ".doc", vbMaximizedFocus

              'Abre o word em qualquer lugar
              Shell ("WINWORD" & " " & """C:\Word\" & Forms!frmColab!rgcolab & "_MuniFuzil" & _
                      ".doc"""), vbMaximizedFocus
        End With
    'Fecha o Word
        '
    'Libera a memória
        Set oApp = Nothing
    End Function


    Última edição por flecha em 4/3/2023, 16:13, editado 1 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3501
    Registrado : 13/12/2016

    [Resolvido]Imprmir dados do Form Aberto para Word Automatico Empty Re: [Resolvido]Imprmir dados do Form Aberto para Word Automatico

    Mensagem  Alexandre Fim 4/3/2023, 16:07

    Na seção onde vc informa o Exercicio, seria isso:
    Código:

    .Selection.Text = Trim(CStr(Forms!frmColab!cboExercicio.Column(1)))

    A coluna 0(zero) do combo é o códido e a coluna 1 é a descrição do exercicio.

    Vale lembrar que a fonte de controle é o "idexerc", porém, o nome é cboExercicio.
    O Access vai sempre se basear pelo nome do controle, neste caso, cboExercicio.

    É isso

    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Imprmir dados do Form Aberto para Word Automatico Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    flecha
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 304
    Registrado : 11/01/2012

    [Resolvido]Imprmir dados do Form Aberto para Word Automatico Empty Re: [Resolvido]Imprmir dados do Form Aberto para Word Automatico

    Mensagem  flecha 4/3/2023, 16:28

    Oi,

    Deu tudo certo!

    Consertei o que errei e corrigi pela sua dica a refereência no WORD.

    Obrigado.


    Última edição por flecha em 4/3/2023, 17:04, editado 1 vez(es) (Motivo da edição : Resolvido)
    avatar
    flecha
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 304
    Registrado : 11/01/2012

    [Resolvido]Imprmir dados do Form Aberto para Word Automatico Empty Re: [Resolvido]Imprmir dados do Form Aberto para Word Automatico

    Mensagem  flecha 4/3/2023, 17:05

    Obrigado!

    Conteúdo patrocinado


    [Resolvido]Imprmir dados do Form Aberto para Word Automatico Empty Re: [Resolvido]Imprmir dados do Form Aberto para Word Automatico

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/12/2024, 06:58