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

Olá!
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



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.

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

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

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

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.

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:



Inclui o botão de comando para visualizar o relatório:



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



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.

Excelente!!! Fantástico. Muito obrigadooo.
Grande ajuda... Ótimo final de semana.

Valeu Carmelito....o fórum agradece

Boa sorte no teu projeto e sucesso !!!