[Resolvido]Imprimir relatório em PDF

Olá pessoal, Tenho um problema com minha base dados em access, em casa funciona bem! mas no trabalho o PC só tem o  runtime, tudo funciona até clicar no botão para imprimir para PDf. A aplicação access fecha forçadamente, e não sei porquê. Alguêm que possa dar uma ajuda ??

Tenho o seguinte código

Private Sub ImprimeFuroPDF_Click()
   Dim strArquivo As String
   Dim strLocal As String
   
   result = Format(Val(Me!txtdados), "0000")
   
   strArquivo = "R." & result & "_" & carro.Column(0) & "_" & Serviço & ".pdf"
   strLocal = CurrentProject.Path & "\pastas1\" & strArquivo
   DoCmd.OutputTo acOutputReport, "consulta_relatorio_pneuspdf", acFormatPDF, strLocal
   DoCmd.Close acReport, "consulta_relatorio_pneuspdf", acSaveYes
   
End Sub

Boa noite. Seja bem vindo ao fórum.

Dim strArquivo As String
Dim strLocal As String pode apagar essas 2

'result = Format(Val(Me!txtdados), "0000")
---troque a linha de local por essa ----                                                -o Zoom e o local local ---teste é o nome do meu relatório---
DoCmd.OutputTo acOutputReport, "consulta_relatorio_pneuspdf", acFormatPDF, "C:\Users\Documentos\Zoom\teste.pdf"

DoCmd.Close acReport, "consulta_relatorio_pneuspdf" 'para voce fechar o relarório voce tem que escrever para access qual relatório ele vai fechar

Por isso é importante imaginar que erros podem acontecer e ter código para tratá-los caso aconteçam. Assim você pode ter uma ideia do que pode estar acontecendo. E nos casos do runtime, evitar o fechamento forçado.

Private Sub ImprimeFuroPDF_Click()
On Error GoTo trataErro

Dim strArquivo As String
Dim strLocal As String

result = Format(Val(Me!txtdados), "0000")

strArquivo = "R." & result & "_" & carro.Column(0) & "_" & Serviço & ".pdf"
strLocal = CurrentProject.Path & "\pastas1\" & strArquivo
DoCmd.OutputTo acOutputReport, "consulta_relatorio_pneuspdf", acFormatPDF, strLocal
DoCmd.Close acReport, "consulta_relatorio_pneuspdf", acSaveYes

sair:
Exit Sub

trataErro:
Call MsgBox(Err.Description, vbCritical, "Erro nº: " & Err.Number)
Resume sair

End Sub

Amigos, crysostomo e DamascenoJr.

Obrigado pela rápida ajuda.
Vou testar e dar-vos-ei o feedback.

Boa tarde e bem-vinda ao fórum
Movi-lhe a dúvida das sala de formulários para a sala de relatórios por ser a adequada

Boa tarde Amigos,

Não funcionou,
coloquei o tratamento do erro e aparece o seguinte
"A execução desta aplicação foi interrompida devido a um erro de tempo de execução."
A aplicação não pode continuar e será finalizada"

Que dor de cabeça!!

Conferiu se existe uma pasta chamada "pasta1" no mesmo local que o arquivo access que está sendo executado?

Damasceno,


A pasta existe.
A base funciona no pc de casa. No trabalho onde corre o rantime, assim que aciono o botão de imprimirpdf, a aplicação fecha forçadamente automaticamente!!

Então talvez o Runtime não esteja conseguindo sobrescrever o arquivo. Experimente excluir o arquivo antes de gerar o PDF.

...
strArquivo = "R." & result & "_" & carro.Column(0) & "_" & Serviço & ".pdf"
strLocal = CurrentProject.Path & "\pastas1\" & strArquivo
if dir(strLocal,vbArchive) then kill(strLocal)
DoCmd.OutputTo acOutputReport, "consulta_relatorio_pneuspdf", acFormatPDF, strLocal
DoCmd.Close acReport, "consulta_relatorio_pneuspdf", acSaveYes
...

Damasceno,
Fiz isso, e nada !

Haverá uma outra forma de fazer ?

Mensagem n°2
Tenta essa

Minhas tentativas de adivinhar acabaram.

Sem o arquivo para testar é difícil saber.

Verifica as dicas do colega crysostomo.

Amigos,
Fico grata pela atenção no entanto e por motivos profissionais não posso colocar aqui a base dados. .


Já testei ambas e não funcionam no pc do trabalho de forma correta. Passo a explicar.
A base é aberta  e no formulário onde tem o botão/comando para imprimir em PDF funciona, caso permaneça em pleno registo /edição no momento que passo para outra janela / pasta/ página da net ou então ver algum email, ou consultar qualquer outro documento e quando necessário retorno ao formulário e necessito de criar outro registo, assim que clico no botão  para imprimir em PDF, a base de dados encerra forçadamente. Isso é percetível no local onde está alocada a base pois fica com dois ícones do access como se estivesse em uso, percebem?
Estou put.... da vida com isto.

Bom dia.

Fiz uma experiencia no PC de casa na qual desinstalei o office e instalei o Run-time e verifiquei o seguinte;
1- entro na base de dados e tudo funciona
2- depois de passado algum tempo, 1 ou mais minutos, ao imprimir a base dados fecha forçadamente
Anexo o exemplo

A mensagem número 2 não te ajudou?

Olá Raquel

Afinal qual é a versão do seu Office, e se é 32 ou 64 bits ?

O Runtime é para a mesma versão ?

Olá a todos,

Raquel, acabei de testar o exemplo da mensagem nº 14 e não dá problema nenhum, desde que seja criada o caminho ...\EGIPNEUS\PEDIDOS
Testei na versão 365 (16) e no 2007 com SP3.

Teste o exemplo que partilhou em todas as maquinas que está a ter problema.
Se der erro deve fazer o levantamento da versões instaladas e Service Packs para se verificar o que está acontecer.
Se não der erro no exemplo da mensagem nr 14 mas der no seu projeto, tente fazer o seguinte:

1º criar base de dados limpa,
2º importar todos os objectos da base de dados que dá erro
3º compilar (alt+f11 ->debug ->compile)
4º testar novamente.

Abraço a todos

Boas,

A versão do runtime é a mesma do office e sim testei a solução da questão n2.
Deixa de funcionar após algum tempo. !!!!??? Que raio.

Olá Raquel,

Vamos apurar o que se está a passar.
Disse "A versão do runtime é a mesma do office" pode indicar com detalhe a versão se é 32 ou 64 bit e Service Packs instalado.
Também é util saber a versão do Sistema operativo.

Fiquei sem perceber " testei a solução da questão n2." qual a versão que testou se foi o seu projeto ou o exemplo que partilhou na mensagem nº 14.

Abraço a todos

Olá pessoal,
Tenho estado ausente, coisas!
O fecho do access mantem-se passados 1 ou 2 minutos !
A versão do runtime2016 instalada é 16.0.4288.1001
O Microsoft Office Profissional Plus 2016 a versão é 16.0.4266.1001

Ideias e Soluções ?!?!?

Raquel

Ainda assim não respondeu a pergunta do Álvaro.

Qual que o teu Office/Windows, 32(x86) ou 64 bits?

Para ver isso, é simples, abra o explorando na Pasta C:/

Verifique nela se tem uma ou duas pastas Arquivos de programas

Se houver 2 pastas ou se uma delas é Arquivos de programas (x86)

Então teu windows é de  64 bits.

Para ver se teu Office é 64 bits, clique em Arquivo - Ajuda  e

em sobre o Microsoft Access, logo abaixo  na versão,

veja se  tem após ela, escrito (64 bits)

{ }'s

Balem

Olá Noobezinho,
Certo.

A versão do Office é 32 bits e Windows 10 Entreprise é 64 bits.

Raquel

Imagino que seja conflito entre as versões do teu pc com as da tua empresa.

Precisa verificar se as versões do computador da tua empresa são as mesmas que a do teu.

Caso seja, para resolvermos isso teremos que ter parte desse teu aplicativo.

Veja que estamos na mensagem 23  e tudo o que vier para ajudar, serão conjecturas.

O que precisamos é somente a tabela, consultas, formulário e relatório envolvidos com registros fictícios .

{ }'s

Balem

Teste se funciona e retorne;

Olá a todos. desculpe a intromissão no tópico.

é que estou tentando adaptar esse exemplo do JPaulo para o meu BD e não estou conseguindo.

No meu caso faço um filtro para o relatório com um form não acoplado, tendo somente um campo tipo data (mmmm/yyyy).
quando mando gerar o relatório somente com um nome específico o mesmo funciona, mas quando incluo o campo onde deve sair o mês usado no filtro do formulário, não gera o relatório em pdf.

o que eu poderia estar fazendo de errado. ??

solicito ajuda, obrigado.

meu access é 2010

Olhe o simples;

Oi mestre JPaulo, bom dia.

Desculpe se não me expressei direito na minha solicitação.
Para melhor esclarecer, anexo um exemplo com minha necessidade.


Ocorre que quando coloco somente um nome na linha "strArquivo" o arquivo PDF é gerado normalmente;
porém quando coloco o campo "DtRelatConta" para que seu valor seja inserido no nome do arquivo PDF, o mesmo não é gerado.


P.S.: No exemplo não estou utilizado a linha de código MkDir

desde já agradeço sua colaboração e paciência.

abraço

Olá

Veja o simples;

Olá Mestre JPaulo.

excelente, mas só uma observação. "simples pra você que é mestre" né ?

muitissímo obrigado. fico grato por mais essa força.

um abraço.

Fico feliz.
Obrigado pelo retorno.