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

3 participantes

    [Resolvido]abrir arquivo word modelo e exportar as informações do formulário para word e pdf. (o problema é a exportação do pdf)

    avatar
    carmelito
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 30
    Registrado : 12/08/2011

    [Resolvido]abrir arquivo word modelo e exportar as informações do formulário para word e pdf. (o problema é a exportação do pdf) Empty [Resolvido]abrir arquivo word modelo e exportar as informações do formulário para word e pdf. (o problema é a exportação do pdf)

    Mensagem  carmelito Qua 21 Jul - 20:20

    Olá!
    What a Face Falta um pequeno detalhe para terminar um trabalho que vai me poupar tempo para gerar atestados... Preciso de uma grande ajuda.

    Uso access 2016.

    no banco de dados, existe um formulário com os dados, ao clicar em exportar para word, ele pega os dados do formulário, abre um arquivo modelo de word, e cola nos indicadores do word, salva um arquivo novo com o atestado da pessoa. Os códigos usei do fórum, adaptei e está funcionando perfeitamente.

    Eu preciso transformar em pdf, pode até excluir o arquivo criado em word, importante é o pdf.

    Já existe um tópico semelhante, mas na época não tinha solução, talvez hoje tenha.

    o código do botão para abrir o arquivo modelo word e salvar o novo arquivo, segue:



    Private Sub Comando17_Click()
    Dim oApp As Object 'Cria uma variável objeto
    On Error GoTo TrataErro


    'Carregamos a barra de progressão
    DoCmd.OpenForm "frm_001_BarraProgresso"
    With Forms!frm_001_BarraProgresso!ctlSbfPBH2.Form
    .Title = "Gerando Atestado Acadêmico."
    .BarColor = RGB(21, 43, 57)
    .ForeColor = RGB(163, 163, 163)
    .Max = 83
    End With

    Forms!frm_001_BarraProgresso!ctlSbfPBH2.Form.Progress


    '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 & "\Modelos_Atestados\atestado_1.docx"



    'Move cada campo para o indicador definido no documento
    .ActiveDocument.Bookmarks("quealuno").Select
    .Selection.Text = Trim(CStr(Me.Texto19))

    Forms!frm_001_BarraProgresso!ctlSbfPBH2.Form.Progress

    .ActiveDocument.Bookmarks("nome").Select
    .Selection.Text = Trim(CStr(Me.Nome))

    Forms!frm_001_BarraProgresso!ctlSbfPBH2.Form.Progress

    .ActiveDocument.Bookmarks("portador").Select
    .Selection.Text = Trim(CStr(Me.Texto21))

    Forms!frm_001_BarraProgresso!ctlSbfPBH2.Form.Progress

    .ActiveDocument.Bookmarks("cpf").Select
    .Selection.Text = Trim(CStr(Me.CPF))

    Forms!frm_001_BarraProgresso!ctlSbfPBH2.Form.Progress

    .ActiveDocument.Bookmarks("matrícula").Select
    .Selection.Text = Trim(CStr(Me.Matrícula))

    Forms!frm_001_BarraProgresso!ctlSbfPBH2.Form.Progress

    .ActiveDocument.Bookmarks("matriculada").Select
    .Selection.Text = Trim(CStr(Me.Texto24))

    Forms!frm_001_BarraProgresso!ctlSbfPBH2.Form.Progress

    .ActiveDocument.Bookmarks("curso").Select
    .Selection.Text = Trim(CStr(Me.Curso))

    Forms!frm_001_BarraProgresso!ctlSbfPBH2.Form.Progress

    .ActiveDocument.Bookmarks("data").Select
    .Selection.Text = Trim(CStr(Me.Texto26))

    Forms!frm_001_BarraProgresso!ctlSbfPBH2.Form.Progress

    .ActiveDocument.Bookmarks("localizador").Select
    .Selection.Text = Trim(CStr(Me.Texto34))



    'Fecha a barra de progresso
    DoCmd.Close acForm, "frm_001_BarraProgresso"

    'Salva o documento
    .ActiveDocument.SaveAs CurrentProject.Path & "\Atestados_Gerados\" & Me.Nome & "_" & Me.Curso & "_" & Format(Date, "mmmm") & "_" & Format(Date, "yyyy") & ".docx"




    'Fecha o word
    .ActiveDocument.Close



    MsgBox "Atestado Gerado Com Sucesso...", vbInformation

    'Abre o a pasta com o arquivo
    Shell "C:\WINDOWS\explorer.exe """ & CurrentProject.Path & "\Atestados_Gerados\" & "", vbNormalFocus


    End With
    oApp.Quit
    Set oApp = Nothing

    Saida:
    Exit Sub

    TrataErro:
    'Se um campo do formulário estiver vazio, remove o texto do Indicador e continua
    If Err.Number = 94 Then
    oApp.Selection.Text = ""
    Resume Next
    End If

    MsgBox "Erro # " & Str(Err.Number) _
    & vbNewLine & "Descrição: " & Err.Description _
    & vbNewLine & vbNewLine & "Por favor contate o Administrador do Sistema."
    MsgBox Msg, vbExclamation, "Atenção"

    'Fecha a barra de progresso
    DoCmd.Close acForm, "frm_001_BarraProgresso"

    #If DESENV Then
    oApp.Quit
    Set oApp = Nothing
    Stop
    Resume
    #End If
    Resume Saida



    End Sub



    bounce Se tem como encaixar a exportação para pdf no código acima, pode até excluir o arquivo criado em word.

    Até criei um relatório para exportar em pdf, o problema é: se eu quiser mexer uma palavra, preciso alterar o accdb p/ transformar em accde, é complicado, já com o modelo do word existente é mais fácil e rápido, por isso, preciso do modelo do word.
    Se alguém já tentou fazer isso???
    achei exemplo de arquivo fixo de word que exporta p/ pdf, mas não é o caso acima... não consegui evoluir com a ideia, só falta isso p/ terminar....
    Se alguém souber... agradeço....

    Eu coloquei esta pergunta no link: https://www.maximoaccess.com/t26126-resolvidoaccess-abrir-um-arquivo-word-docx-e-gerar-o-mesmo-em-pdf, mas já estava resolvido, então, resolvi abrir um tópico no meu nome.
    abraços.


    Última edição por carmelito em Qui 22 Jul - 21:24, editado 1 vez(es)
    Finformática
    Finformática
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 847
    Registrado : 23/03/2010

    [Resolvido]abrir arquivo word modelo e exportar as informações do formulário para word e pdf. (o problema é a exportação do pdf) Empty Re: [Resolvido]abrir arquivo word modelo e exportar as informações do formulário para word e pdf. (o problema é a exportação do pdf)

    Mensagem  Finformática Qua 21 Jul - 21:02

    Caro Amigo, só um pitaco.

    Estando já no Word (como também no Access) temos em "Imprimir": "Microsoft Print to PDF", converte no local que vc escolher.

    Abraços
    avatar
    carmelito
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 30
    Registrado : 12/08/2011

    [Resolvido]abrir arquivo word modelo e exportar as informações do formulário para word e pdf. (o problema é a exportação do pdf) Empty Re: [Resolvido]abrir arquivo word modelo e exportar as informações do formulário para word e pdf. (o problema é a exportação do pdf)

    Mensagem  carmelito Qui 22 Jul - 21:22

    Crying or Very sad Faltando só Q.I. para solucionar... tentei e não consegui...

    coloquei esse código: DoCmd.OutputTo acOutputForm, "Form_sub_pesquisa", acFormatPDF, CurrentProject.Path & "\Atestados_Gerados\" & Me.Nome & "_" & Me.Curso & "_" & Format(Date, "mmmm") & "_" & Format(Date, "yyyy") & ".pdf"


    esse:
    Application.ActivePrinter = "Microsoft Print To PDF"


    e esse:
    ActiveDocument.ExportAsFixedFormat Type:=xlTypePDF, FileName:=fName, Quality:=xlQualityStandard _
           , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _


    nada funcionou....

    a ideia é abrir o word modelo, salvar .doc e .pdf com as informações do formulário. passado p/ .doc... lembrando, o código está funcionando perfeitamente, salva em word... mas queria salvar em pdf também... se tiver uma ideia... obrigadoooo. Eu uso access 2016.
    abraços
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]abrir arquivo word modelo e exportar as informações do formulário para word e pdf. (o problema é a exportação do pdf) Empty Re: [Resolvido]abrir arquivo word modelo e exportar as informações do formulário para word e pdf. (o problema é a exportação do pdf)

    Mensagem  Alexandre Fim Sex 23 Jul - 9:42

    Olá Carmelito,

    O Access já possui uma ferramenta de relatório, e com isso não há necessidade de utilizar mais uma ferramenta para gerar e imprimir o relatório desejado.
    O próprio Access também possui recursos para gerar saidas de arquivos e relatorios e vários formatos, inclusive o PDF.

    Por gentileza, poste aqui uma cópia do seu banco de dados (somente os objetos envolvidos - tabelas/formularios/consultas/modulos e etc.) para análise e possível solução.

    OBS: Envie também o arquivo de modelo do Word.

    É isso !!

    []'s

    FIM


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

    [Resolvido]abrir arquivo word modelo e exportar as informações do formulário para word e pdf. (o problema é a exportação do pdf) Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    carmelito
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 30
    Registrado : 12/08/2011

    [Resolvido]abrir arquivo word modelo e exportar as informações do formulário para word e pdf. (o problema é a exportação do pdf) Empty Re: [Resolvido]abrir arquivo word modelo e exportar as informações do formulário para word e pdf. (o problema é a exportação do pdf)

    Mensagem  carmelito Sex 23 Jul - 10:58

    Claro:
    Segue, arquivo zipado no googledrive:
    https://drive.google.com/file/d/1vUHMUhE8hgB7D1dtTs5fknHPhUZCm6ma/view?usp=sharing

    Observações:
    precisa abrir o formulário: Frm_pesquisa_Tb_dados

    Clicar 02 vezes em cima do nome escolhido que vai abrir o formulário em questão: Frm_sub_pesquisa

    Ao clicar no botão gerar o atestado word, ele vai abrir o word modelo da pasta: modelos_atestados, criar um novo word, colar as informações do formulário: Frm_sub_pesquisa, salvar, fechar docx, e abrir o windows explorer.

    A ideia é criar um botão, para abrir o modelo word, criar novo word, e salvar como pdf. Podendo até excluir o arquivo word criado neste botão.

    Motivo: word modelo é mais fácil da pessoa alterar textos não indicadores do word, do que mexer na configuração de um relatório de access... pois, depois vai estar em runtime e não vai conseguir....

    Muito obrigado.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]abrir arquivo word modelo e exportar as informações do formulário para word e pdf. (o problema é a exportação do pdf) Empty Re: [Resolvido]abrir arquivo word modelo e exportar as informações do formulário para word e pdf. (o problema é a exportação do pdf)

    Mensagem  Alexandre Fim Sex 23 Jul - 13:38

    Olá Carmelito,

    No atestado de matrícula é necessário que tenha o timbre e os dados da instituição, e com isso yomei a liberdade de fazer alguns ajustes para a adequação  na impressão deste atestado.

    1 - Criei as seguintes tabelas:
    - tb_tipo_curso: que armazena os tipos de curso (Bacharelado, Pós-Graduação e etc)
    - tb_universidade: armazena dados da entidade (Razão social, endereço, logotipo da universidade e etc)

    Inclui os devidos ID's das tabelas acima na "Tb_dados", para que se relacionem:

    [Resolvido]abrir arquivo word modelo e exportar as informações do formulário para word e pdf. (o problema é a exportação do pdf) Atesta10

    Inclui o botão de comando para visualizar o relatório:
    [Resolvido]abrir arquivo word modelo e exportar as informações do formulário para word e pdf. (o problema é a exportação do pdf) Atesta11


    Ao clicar no botão "Visualizar", a bre o relatório, conforme abaixo:

    [Resolvido]abrir arquivo word modelo e exportar as informações do formulário para word e pdf. (o problema é a exportação do pdf) Atesta12

    Conforme você pode perceber, já existe um botão para exportação do relatório em PDF.

    SUGESTÕES:
    - Não há necessidade de salvar e armazenar os atestados impressos, pois os dados encontram-se na base de dados.
    - Não há necessidade de utilizar outro aplicativo (Word) para gerar seus relatórios, o que dispensa também o trabalho de programar várias linhas.

    OBS: Utilizei como referencia a Universidade Federal do Rio Grande do Sul.
    Para atender a tua necessidade, apenas altere os dados da tabela "tb_universidade" e também substitua o logotipo.


    É isso!!!

    Segue versão do sistema.

    Espero ter ajudado.
    Anexos
    [Resolvido]abrir arquivo word modelo e exportar as informações do formulário para word e pdf. (o problema é a exportação do pdf) AttachmentGERADOR_DE_ATESTADOS PARA ENVIO.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (298 Kb) Baixado 37 vez(es)


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

    [Resolvido]abrir arquivo word modelo e exportar as informações do formulário para word e pdf. (o problema é a exportação do pdf) Setinf11
    Sistemas e Tecnologia Ltda

    carmelito gosta desta mensagem

    avatar
    carmelito
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 30
    Registrado : 12/08/2011

    [Resolvido]abrir arquivo word modelo e exportar as informações do formulário para word e pdf. (o problema é a exportação do pdf) Empty Re: [Resolvido]abrir arquivo word modelo e exportar as informações do formulário para word e pdf. (o problema é a exportação do pdf)

    Mensagem  carmelito Sex 23 Jul - 14:27

    cheers Shocked Excelente!!! Fantástico. Muito obrigadooo.
    Grande ajuda... Ótimo final de semana.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]abrir arquivo word modelo e exportar as informações do formulário para word e pdf. (o problema é a exportação do pdf) Empty Re: [Resolvido]abrir arquivo word modelo e exportar as informações do formulário para word e pdf. (o problema é a exportação do pdf)

    Mensagem  Alexandre Fim Sex 23 Jul - 15:46

    Valeu Carmelito....o fórum agradece cheers cheers

    Boa sorte no teu projeto e sucesso !!!


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

    [Resolvido]abrir arquivo word modelo e exportar as informações do formulário para word e pdf. (o problema é a exportação do pdf) Setinf11
    Sistemas e Tecnologia Ltda

      Data/hora atual: Sab 1 Out - 11:45