[Resolvido]Relatório em PDF; gera, salva mas não fica aberto

Boa noite !
Adaptei o relatório em PDF do amigo Avelino no meu BD, quase tudo perfeito, gera o relatório, salva na pasta indicada mas não fica aberto na tela. Com o conhecimento de vocês eu acredito que vou conseguir fazer no momento que gerar, ficar aberto o relatório na tela do PC para o usuário definir se quer imprimir ou não. Abaixo está o código que estou usando

'Este comando gera relatório em PDF
'----------------------------------------------------------
Dim strArquivo As String
Dim strLocal As String

strArquivo = "Relação em Caixa.pdf"
strLocal = "C:\Enviados\" & strArquivo

DoCmd.OutputTo acOutputReport, "rltEm_Caixa", acFormatPDF, strLocal
Application.FollowHyperlink strLocal
----------------------------- ------------------------------ -------

Conto com o conhecimento dos amigos

Roxo

vtambem tive problemas com pdf
ve isto talvez ajude

http://maximoaccess.forumeiros.com/t8788-resolvidoajuda-com-pdf

Toyebom
Obrigado pela ajuda, mas esta opção imprime direto o relatório, o que preciso é que somente abra o relatorio PDF e fique a disposição para o usuario, aberto na tela do computador

Roxo

Roxo tente dessa forma, acrescente a virgula e o número 1 no final como mostra abaixo...

DoCmd.OutputTo acOutputReport, "rltEm_Caixa", acFormatPDF, strLocal,1

João Afonso
Valeu, funcinou, ficou aberto o orçamento. Só que dá uma mensagem
"Adobe reader
"Houve um erro ao abrir este documento. Este arquivo não pode ser encontrado."
Mas o interessante é que dá esta mensagem depois que já está aberto o orçamento

Mas está funcionando, valeu, pois mesmo com esta mensagem sem nexo, pelo menos está aberto o orçamento, vou atrás de eliminar esta mensagem agora

Vou esperar para colocar como resolvido depois que eliminar a mensagem

Muito obrigado

Roxo

João Afonso
Só esqueci de perguntar, qual a função do numero 1 ao final da linha, é um contador de tempo?

Roxo

José, se você quer aprender, entre no VBA onde tem essa instrução, delete a virgula antes do numero 1, volte a escrevê-la e veja o que o proprio VBA lhe mostra.

do Código
--------------------
Private Sub Comando570_Click()
Dim strArquivo As String
Dim strLocal As String
DoCmd.OpenReport "Oficio Normal1", acViewPreview, , "[001] = " & [001]
DoCmd.Maximize
strArquivo = Replace(Me![7],"/","_") & " _ " & Me![001] & ".pdf"
strLocal = CurrentProject.Path & "\Oficios Expedidos\" & strArquivo
DoCmd.OutputTo acOutputReport, "Oficio Normal1", acFormatPDF, strLocal
DoCmd.PrintOut
DoCmd.Close
End Sub

Créditos de: PILOTO
---------------------

Basta tirares

DoCmd.PrintOut

e já não imprime

JPaulo
Obrigado pela dica, só que quando coloco o auto Start (, 1 ) gera o PDF, fica aberto na tela como eu quero, tudo certinho, só que logo vem uma mensagem
"Adobe reader
"Houve um erro ao abrir este documento. Este arquivo não pode ser encontrado."

Se retiro (, 1) gera o pdf e não fica aberto, gera o PDF, salva e fecha. ( desta maneira não vem a mensagem do Adobe reader )
Gostaria de fazer da maneira que fica aberto o PDF, porém sem a mensagem do Adobe reader, mas não estou conseguindo.

Valeu
Grande abraço

Roxo

Toyebom
Grande abraço amigão
Sim, este não é o meu problema, o de imprimir, e sim o de gerar o pdf e deixar aberto, este agora já aprendi também, só que fica a mensagem do Adobe, conforme expliquei antes para o JPaulo, e gostaria de excluir esta mensagem do Adobe reader.

Valeu

Roxo

veja a dica que lhe ofereci no meu artigo, se atende.

http://www.usandoaccess.com.br/tutoriais/tuto12.asp?id=1#inicio

Avelino
Boa tarde, valeu amigão pelas dicas que está me dando, tentei colocar como vc sugeriu

#If VBA7 Then
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#Else
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If
mas nem deixa salvar, dá mensagem de erro.
Seleciona PtrSafe e vem mensagem.Erro de Compilação, Era esperado Sub ou Function.
Minha dúvida
Estou colocando logo abaixo do SUB do botão imprimir
Está certo o lugar?
Obs. Coloquei esta duvida lá no teu artigo, agora a pouco, mas como vc me respondeu aqui, estou colando aqui também

Grande abraço

Roxo

1. Qual é a tua verção de ACCESS?

2. Já tentaste actualizar o Acrobat reader?

Toyebom
meu access é 2007
meu Outlook é 2007
conforme explicação do Avelino no artigo que ele colocou sobre relatórios e e-mail em PDF
Quanto ao Adobe, realmente não sei te dizer, mas vou ver e atualizar se necessário

grande abraço

Roxo

Ok eu tenho uma bd assim, e no meu caso resulta na perfeição, alem de me criar o pdf na pasta "oficios expedidos" criada dento da pasta da bd, de seguida abre-me o pdf



no botão "IMPRIMIR", no comando "ao imprimir" tenho

Private Sub Comando570_Click() 'Comando570 é o nome do meu butão
Dim strArquivo As String
Dim strLocal As String
Dim strReportName As String
Dim numCop As Integer
DoCmd.OpenReport "Oficio Normal1", acViewPreview, , "[001] = " & [001] 'Oficio Normal1 - nome do meu relatório e [001] chave primária
DoCmd.Maximize
strReportName = Replace([7], "/", "-") & "_" & Me![001] & ".pdf" 'aqui guardo com o nome que quero, neste caso com o que escrevo no campo 7 alterando "/" para "-" mais "_" e a chave primária, visto eu no campo 7 escrever tipo 123/12-SR, ficando tipo 123-12-SR_4321
strLocal = CurrentProject.Path & "\Oficios Expedidos\" & strArquivo 'aqui guarda na pasta "oficios expedidos" que criei dentro da pasta onde tenho a bd
DoCmd.OutputTo acOutputReport, "Oficio Normal1", acFormatPDF, strLocal + strReportName, True 'abre o pdf
DoCmd.Close 'fecha a visualização do relatório access
End Sub


comigo resulta na perfeição e não gera erro
A meu entender, julgo que tens de criar uma pasta para guardar o pdf, caso tentes guaardar junto do bd dá erro, eu tenho a pasta Oficios Expedidos dentro da pasta onde tenho o bd, ou seja
strLocal = CurrentProject.Path & "\Oficios Expedidos\" & strArquivo

Tenho o windows 7 e access 2010 e utilizo a bd em windows xp e access 2003 e funciona em ambos

Boa noite amigo, tente mandar a parte do seu arquivo que esta precisando de ajuda, quem sabe assim podemos ajuda-lo a resolver o problema da mensagem.

Boa noite Toyebom
access 2007
outlook 2007
Atualizei o Adobe para 10.1
Fiz uns testes, tudo isso no windows 7 funciona perfeito, sem mensagens do Adobe, não precisa nem utilizar o auto start (, 1)
Porem, tudo igual no windows XP, utilizando o (, 1) ou não, dá a mensagem do Adobe, logo imagino que no XP o Adobe tenta abrir o PDF antes de terminar a montagem dele.
Vou tentar utilizar o exemplo do Avelino, onde tem um contador de tempo, estou fazendo uns testes, mas não estou conseguindo fazer funcionar, já pedi mais uma ajuda ao Avelino, assim que resolver posto aqui para todos saberem como ficou.

Grande Abraço

Roxo

Ok ve como tenho

o "Oficio Normal" cria abre e imprime
o "Cópia de Oficio Normal" cria abre e não imprime

Toyebom
Obrigado pelas dicas, o meu relatório também funciona legal, só no XP não permanece aberto.
A solução que encontrei foi dar um up do XP para o Seven
No sevem funfa a contento
Valeu amigão

Roxo

obrigado pelo retorno

Mais uma dica, eu tive problemas com o pdf no windows xp e office 2007 mas após upgrade para o sp2 ficou resolvido.

No site da microsoft, para quem não tem o office 2007 atualizado existe um ficheiro chamado

SaveAsPDFandXPS.exe

podes ver aqui

http://www.microsoft.com/pt-br/download/details.aspx?id=7

mas já que atualizaste para o Seven e funciona, então nãoo vale a pena o trabalho