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]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 : 23
    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 21/7/2021, 17: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 22/7/2021, 18: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 : 719
    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 21/7/2021, 18: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 : 23
    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 22/7/2021, 18: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 : 1552
    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 Ontem à(s) 06: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


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    avatar
    carmelito
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 23
    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 Ontem à(s) 07: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 : 1552
    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 Ontem à(s) 10: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 5 vez(es)


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.

    carmelito gosta desta mensagem

    avatar
    carmelito
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 23
    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 Ontem à(s) 11: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 : 1552
    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 Ontem à(s) 12:46

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

    Boa sorte no teu projeto e sucesso !!!


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.

      Data/hora atual: 24/7/2021, 05:30