3 Replies Latest reply: Jan 30, 2013 2:35 PM by Rafael Mendes da Silva RSS

    Gerar PDF de um relatório

    Rafael Mendes da Silva

      Boa Tarde Pessoal,

       

      Estou com um problema ao gerar PDF de um relatório utilizando macro, atualmente estou utilizando o PDFCreator, mas uma versão mais antiga que me da o suporte para gerar os arquivos, porem a algum tempo ele começou a apresentar problemas, devido ao pedido de atualização a cada vez que ele vai gerar o PDF, pois bem, gostaria de saber se vocês tem algum outro programa para eu utilizar ou alguma idéia de como fazer para gerar esses relatórios.

       

      Server: QV11sr2

      PDF gerando de forma automatica na carga (pelo agendador de tarefas, pois pelas tarefas do QV ele não executa a macro)

      PDF: PDFCrator

       

      Atenciosamente

      Rafael Mendes

        • Re: Gerar PDF de um relatório

          Rafael,

           

          Eu utilizo o QvPDF. mas não cheguei a realizar testes no QV11 SR2.

           

          Segue a macro:

           

          '==================== Função Exporta o relatório p/ PDF ====================

                              FUNCTION printReportPDF(oReport, pdfOutputFile)

           

                                        SET WSHShell = CreateObject("WScript.Shell")

                                         WSHShell.RegWrite "HKCU\Software\QlikViewPDF\OutputFile", pdfOutputFile, "REG_SZ"

                                         WSHShell.RegWrite "HKCU\Software\QlikViewPDF\BypassSaveAs", "1", "REG_SZ"

                                        ActiveDocument.PrintReport oReport, "QlikViewPDF", FALSE

                                        SET WSHShell = NOTHING

           

                              END FUNCTION

            • Re: Gerar PDF de um relatório
              Rafael Mendes da Silva

              Obrigado Eduardo,

               

              Vou testar!

               

              Atenciosamente

              Rafael Mendes

              • Re: Gerar PDF de um relatório
                Rafael Mendes da Silva

                Eduardo, Consegui fazer funcionar em partes, ele "gera" o relatorio, mas não está salvando no diretório, segue o script que eu montei:

                 

                Sub GerarPDF

                  

                   ActiveDocument.Fields("AnoAbertura").select ActiveDocument.Variables("vrAno").GetContent.String

                  

                   Print_PDF "C:\Indicadores\IndicadoresPDF\ControleProtocolos_"&ActiveDocument.Variables("vrAno").GetContent.String, "RP02"

                   ActiveDocument.GetApplication.Sleep 10000

                    

                End Sub

                 

                 

                Sub Print_PDF(pdfOutputFile,oReport)

                 

                 

                 

                   SET WSHShell = CreateObject("WScript.Shell")

                                               WSHShell.RegWrite "HKCU\Software\QlikViewPDF\OutputFile", pdfOutputFile, "REG_SZ"

                                               WSHShell.RegWrite "HKCU\Software\QlikViewPDF\BypassSaveAs", "1", "REG_SZ"

                                              ActiveDocument.PrintReport oReport, "QlikViewPDF", FALSE

                                              SET WSHShell = NOTHING

                End Sub