Abrir um arquivo PDF dentro do Userform
Enviado: 14 Jun 2021 às 12:59
Bom dia,
Basicamente tenho um userform com um webbrowser dentro para mostrar um arquivo PDF.
A planilha estava funcionando normal já tem alguns meses, e do nada parou de carregar o PDF.
As vezes, aparece uma msgbox com o seguinte erro: "Acrobat failed to connect to a DDE server"
Além disso, quando fecho o form, a planilha fica travada e muitas vezes fecha sozinha. E se comento o código de carregar o PDF, nada disso ocorre.
Depois de muito tempo buscando, percebi que o problema ocorre após uma atualização do Windows, inclusive removi a mesma atualização e o problema foi resolvido.
Porém sempre que atualiza, volta a ocorrer o problema.
Inclusive tenho outras máquinas que ainda não passaram pela atualização e estão funcionando normalmente.
Vou anexar um print de como fica o webbrowser, reparem que fica cinza, ou seja, tentando carregar. Pois quando comento o código de abrir o PDF, a região cinza fica toda branca. Creio que seja alguma incompatibilidade ou algo do gênero.
Não deve ser nada a ver com as bibliotecas ou referencias do VBA, pois como comentei, a mesma planilha roda normal nas maquinas que ainda não passaram pela atualização.
Se houver outra forma de mostrar o PDF dentro de um userform, também estou aceitando.
O que eu já tentei e não tive sucesso:
-reinstalar, atualizar, reparar e corrigir o Adobe Acrobat
-Alterar o valor da chave de AcroViewA20 para AcroViewR20 dentro dos diretórios no Regedit.
-Desabilitar e habilitar novamente os puglins do Internet Explorer
-Abrir um arquivo PDF local na área de trabalho (pensei que poderia ser algo relacionado ao caminho do servidor)
- Restauração do Sistema (Deu certo, porém quando atualizei novamente o Windows o problema voltou)
-Modificar o visualizador padrão de PDF.
- Desabilitei o Firewall , Windows Defender e Antivírus para testar e sem sucesso.
-Apenas para testar, modifiquei o caminho do arquivo pdf para a pagina do google (https://www.google.com.br/) e o userform carrega normalmente, evidenciando que o problema está relacionado ao Adobe Acrobrat.
Informações Importantes:
- Windows 10 Pro - 64 bits
- Office 365 - 64bits
- Adobe Acrobat Reader 32 bits (gratuita) - versão 19.008.20071 & 21.005.20048 (Testei com as duas)
- Atualização do Windows que me refiro: https://support.microsoft.com/pt-br/top ... 392450fb3a
Código VBA para carregar o webbrowser:
Sub CARREGA_PDF()
Dim arquivoPDF As String
arquivoPDF = ""
arquivoPDF = Dir("Z:\P.C.P\DESENHOS PDF\" & frm_Controle.c_codigo.Value & ".pdf")
If arquivoPDF = "" Then
frm_Controle.C_DESENHO.Navigate "Z:\P.C.P\DESENHOS PDF\error2.pdf#toolbar=0&navpanes=0&Menubar=no&scrollbar=0&ZOOM=110"
Else
frm_Controle.C_DESENHO.Navigate "Z:\P.C.P\DESENHOS PDF\" & frm_Controle.c_codigo.Value & ".pdf#toolbar=0&navpanes=0&Menubar=no"
End If
End Sub
Muito obrigado! Estou meio desesperado nisso, qualquer ajuda será muito bem vinda!!!
Basicamente tenho um userform com um webbrowser dentro para mostrar um arquivo PDF.
A planilha estava funcionando normal já tem alguns meses, e do nada parou de carregar o PDF.
As vezes, aparece uma msgbox com o seguinte erro: "Acrobat failed to connect to a DDE server"
Além disso, quando fecho o form, a planilha fica travada e muitas vezes fecha sozinha. E se comento o código de carregar o PDF, nada disso ocorre.
Depois de muito tempo buscando, percebi que o problema ocorre após uma atualização do Windows, inclusive removi a mesma atualização e o problema foi resolvido.
Porém sempre que atualiza, volta a ocorrer o problema.
Inclusive tenho outras máquinas que ainda não passaram pela atualização e estão funcionando normalmente.
Vou anexar um print de como fica o webbrowser, reparem que fica cinza, ou seja, tentando carregar. Pois quando comento o código de abrir o PDF, a região cinza fica toda branca. Creio que seja alguma incompatibilidade ou algo do gênero.
Não deve ser nada a ver com as bibliotecas ou referencias do VBA, pois como comentei, a mesma planilha roda normal nas maquinas que ainda não passaram pela atualização.
Se houver outra forma de mostrar o PDF dentro de um userform, também estou aceitando.
O que eu já tentei e não tive sucesso:
-reinstalar, atualizar, reparar e corrigir o Adobe Acrobat
-Alterar o valor da chave de AcroViewA20 para AcroViewR20 dentro dos diretórios no Regedit.
-Desabilitar e habilitar novamente os puglins do Internet Explorer
-Abrir um arquivo PDF local na área de trabalho (pensei que poderia ser algo relacionado ao caminho do servidor)
- Restauração do Sistema (Deu certo, porém quando atualizei novamente o Windows o problema voltou)
-Modificar o visualizador padrão de PDF.
- Desabilitei o Firewall , Windows Defender e Antivírus para testar e sem sucesso.
-Apenas para testar, modifiquei o caminho do arquivo pdf para a pagina do google (https://www.google.com.br/) e o userform carrega normalmente, evidenciando que o problema está relacionado ao Adobe Acrobrat.
Informações Importantes:
- Windows 10 Pro - 64 bits
- Office 365 - 64bits
- Adobe Acrobat Reader 32 bits (gratuita) - versão 19.008.20071 & 21.005.20048 (Testei com as duas)
- Atualização do Windows que me refiro: https://support.microsoft.com/pt-br/top ... 392450fb3a
Código VBA para carregar o webbrowser:
Sub CARREGA_PDF()
Dim arquivoPDF As String
arquivoPDF = ""
arquivoPDF = Dir("Z:\P.C.P\DESENHOS PDF\" & frm_Controle.c_codigo.Value & ".pdf")
If arquivoPDF = "" Then
frm_Controle.C_DESENHO.Navigate "Z:\P.C.P\DESENHOS PDF\error2.pdf#toolbar=0&navpanes=0&Menubar=no&scrollbar=0&ZOOM=110"
Else
frm_Controle.C_DESENHO.Navigate "Z:\P.C.P\DESENHOS PDF\" & frm_Controle.c_codigo.Value & ".pdf#toolbar=0&navpanes=0&Menubar=no"
End If
End Sub
Muito obrigado! Estou meio desesperado nisso, qualquer ajuda será muito bem vinda!!!