MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

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

    Luiz Carlos Junior
    Luiz Carlos Junior
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 473
    Registrado : 21/08/2012

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

    Mensagem  Luiz Carlos Junior 30/10/2013, 14:16

    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!!!
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

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

    Mensagem  criquio 30/10/2013, 15:01

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


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Luiz Carlos Junior
    Luiz Carlos Junior
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 473
    Registrado : 21/08/2012

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

    Mensagem  Luiz Carlos Junior 30/10/2013, 16:49

    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?
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

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

    Mensagem  JPaulo 31/10/2013, 17:48

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Impressão de relatórios em PDF. Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Impressão de relatórios em PDF. Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Impressão de relatórios em PDF. Folder_announce_new Instruções SQL como utilizar...
    Luiz Carlos Junior
    Luiz Carlos Junior
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 473
    Registrado : 21/08/2012

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

    Mensagem  Luiz Carlos Junior 1/11/2013, 11:00

    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!!!
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

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

    Mensagem  JPaulo 1/11/2013, 15:06

    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.



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Impressão de relatórios em PDF. Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Impressão de relatórios em PDF. Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Impressão de relatórios em PDF. Folder_announce_new Instruções SQL como utilizar...
    Luiz Carlos Junior
    Luiz Carlos Junior
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 473
    Registrado : 21/08/2012

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

    Mensagem  Luiz Carlos Junior 1/11/2013, 19:02

    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!!!
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

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

    Mensagem  JPaulo 1/11/2013, 20:52

    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%



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Impressão de relatórios em PDF. Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Impressão de relatórios em PDF. Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Impressão de relatórios em PDF. Folder_announce_new Instruções SQL como utilizar...
    Luiz Carlos Junior
    Luiz Carlos Junior
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 473
    Registrado : 21/08/2012

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

    Mensagem  Luiz Carlos Junior 4/11/2013, 15:58

    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!!!
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

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

    Mensagem  JPaulo 4/11/2013, 17:11

    É 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



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Impressão de relatórios em PDF. Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Impressão de relatórios em PDF. Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Impressão de relatórios em PDF. Folder_announce_new Instruções SQL como utilizar...
    Luiz Carlos Junior
    Luiz Carlos Junior
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 473
    Registrado : 21/08/2012

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

    Mensagem  Luiz Carlos Junior 4/11/2013, 17:39

    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!!!
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

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

    Mensagem  JPaulo 4/11/2013, 18:11

    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.




    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Impressão de relatórios em PDF. Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Impressão de relatórios em PDF. Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Impressão de relatórios em PDF. Folder_announce_new Instruções SQL como utilizar...
    Luiz Carlos Junior
    Luiz Carlos Junior
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 473
    Registrado : 21/08/2012

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

    Mensagem  Luiz Carlos Junior 4/11/2013, 18:13

    Valeu Mestre.

    Abrasss!!!

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 4/11/2024, 17:13