[Resolvido]Imprmir dados do Form Aberto para Word Automatico

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

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):

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

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",


O sistema abre o relatório, inclusive com os botoes de impressão, exportar PDF e etc, filtrando pelo ID  do colaborador:


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

Espero ter ajudado.

Segue versão

Att,

Alexandre Fim

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

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

Oi,

Deu tudo certo!

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

Obrigado.

Obrigado!