[Resolvido]Impressão de relatórios em PDF.

Bom dia feras.
Estou usando dicas que me deram aqui no site para confecção de relatórios em PDF.
Eu os crio e salvo em uma pasta do meu projeto.
O que quero é que, através de um botão do meu form, ele imprima diretamente este relatório,sem mostrar nenhuma mensagem antes e, se possível, nos que tem 2 páginas mas são da mesma folha, fizesse uma pausa com uma msgbox para que o cliente vire a página para a impressão no verso.

TEm como?

Estou usando essa linha para abrir o Adobe com o relatório:

Application.FollowHyperlink strLocal

Existe outro modo de imprimir um PDF salvo?

Abrasss!!!

Não seria mais simples imprimir o relatório do Access?

Eu fazia assim, mas fiz umas atualizações, onde visualizo o relatório pronto dentro de um sub form no próprio programa.
Por isso quero que imprima direto.

Tendeu?

Pode testar, alterando o caminho e versão do seu Acrobat

Código:


Private Sub SeuBotão_Click()
   Dim strCaminhoPrograma As Variant
   Dim intTempo As Single
   Dim strCaminhoFicheiro As String
   
   strCaminhoFicheiro = "C:\SeuFicheiroPDF.PDF"
   
   strCaminhoPrograma = Shell("C:\Program Files\Adobe\Reader 11.0\Reader\AcroRd32.exe " & strCaminhoFicheiro & "")
   
   intTempo = Timer + 2
   Do
   Loop Until Timer > intTempo

   SendKeys "%FP", True
   SendKeys "~", True
   SendKeys "%{F4}", True
End Sub


Fala Mestre JP, blz?
Desculpe minha leiguice, mas, onde coloco o "strCaminhoPrograma" depois?
Ele já imprime direto com esse código ou tenho que colocar algo entre o "Do" e o "Loop..."?

Agradeço pela força...

Abrasss!!!

Não tem que alterar nada no Loop;

Apenas deve alterar o "C:\Program Files\Adobe\Reader 11.0\Reader\AcroRd32.exe", para o caminho correto do seu AcroRd32.exe e o caminho do seu ficheiro "C:\SeuFicheiroPDF.PDF"

Nada mais.

Fala Mestre.
Mudei o código, abriu o Adobe, mas fala que não achou o arquivo.
Copiei o caminho exato e da esse erro, onde estou errando:

Código:

 Private Sub cmdImprimir_Click ()
ANO = Format(Form_Funcionários.txtDataAtual, "yyyy")
strArquivo = "Ficha de Remoção_" & Form_Funcionários.cmbNOME_FUNC & " - " & ANO & ".pdf"
strLocal = CurrentProject.Path & "\PDFs\Funcionários\Fichas Remoção\" & strArquivo
Dim strCaminhoPrograma As Variant
Dim intTempo As Single
  
    If NOM = "" Then
        MsgBox ("Nenhum registro selecionado!" & Chr(13) & "Selecione um registro e clique em PESQUISAR REG."), vbInformation + vbOKOnly, "Selecione um Registro!"
        DoCmd.Close
        Exit Sub
    Else
    imprime = MsgBox("Confirma a impressão da Ficha CEM?", vbQuestion + vbYesNo, "Imprimir")
    Select Case imprime
        Case vbYes
            strCaminhoPrograma = Shell("C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe" & strLocal & "")
  
            intTempo = Timer + 2
            Do
               Loop Until Timer > intTempo
            
               SendKeys "%FP", True
               SendKeys "~", True
               SendKeys "%{F4}", True

            'Application.FollowHyperlink strLocal
        Case vbNo
            DoCmd.CancelEvent
            MsgBox "Impressão Cancelada !", vbInformation, "Informando..."
        End Select
    End If
End Sub


Abrasss!!!

Faça um break na linha strLocal, pressione o seu botão e acompanhe o codigo para ver se o caminho e o nome do ficheiro estão corretos.

O exemplo que lhe passei funfa 100%

Fala Mestre, blz?
Então, fiz o break e tá certinho o nome, só que ao passar o mouse em cima do "strCaminhoPrograma" ele mostra que está vazio, pq?

Abrasss!!!

É por causa dos espaços no caminho;

Teste assim;


Private Sub cmdImprimir_Click()
ano = Format(Form_Funcionários.txtDataAtual, "yyyy")
strArquivo = "Ficha de Remoção_" & Form_Funcionários.cmbNOME_FUNC & " - " & ano & ".pdf"
strLocal = CurrentProject.Path & "\PDFs\Funcionários\Fichas Remoção\" & strArquivo

Dim strCaminhoPrograma As Variant
Dim intTempo As Single

If NOM = "" Then
MsgBox ("Nenhum registro selecionado!" & Chr(13) & "Selecione um registro e clique em PESQUISAR REG."), vbInformation + vbOKOnly, "Selecione um Registro!"
DoCmd.Close
Exit Sub
Else
imprime = MsgBox("Confirma a impressão da Ficha CEM?", vbQuestion + vbYesNo, "Imprimir")
Select Case imprime
Case vbYes

strCaminhoPrograma = Chr$(34) & "C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe" & Chr$(34) & " " & Chr$(34) & strLocal & Chr$(34)
Shell strCaminhoPrograma

intTempo = Timer + 2
Do
Loop Until Timer > intTempo

SendKeys "%FP", True
SendKeys "~", True
SendKeys "%{F4}", True
Case vbNo
DoCmd.CancelEvent
MsgBox "Impressão Cancelada !", vbInformation, "Informando..."
End Select
End If
End Sub

Funcionou Mestre, mas continua mostrando a mensagem de "Deseja mesmo abrir o arquivo. Este pode conter vírus e bla bla bla" ao abrir o Adobe. Não tem como abrir sem essa msg?

Abrasss!!!

Olha rapaz, no meu não dá essa mensagem, devem ser as seguranças do seu sistema operativo.

Como funcionou o tópico está resolvido e fico feliz por isso.

No entanto procure por desativar essas mensagens de segurança.

Valeu Mestre.

Abrasss!!!