5 Replies Latest reply: Jan 13, 2016 6:11 AM by Fernanda Borsari RSS

    Erro ao tentar gerar pdf.

    Fernanda Borsari

      Boa tarde,

       

      estou tentando gerar pdf através de macros porém é apresentado o seguinte erro:

       

      O componente do ActiveX não pode criar objeto: 'PDFCreator.clsPDFCreator'

       

      Alguém poderia me ajudar?

        • Re: Erro ao tentar gerar pdf.
          Yuri Nicolett

          Fernanda, ou esta faltando segurança ou você não possui o PDF Creator instalado no computador.

           

          A questão da segurança deve ser habilitada dentro da própria macro (ctrl + m) do qlikview, sendo as opções:

          • Modo de Segurança Requerido = Acesso ao Sistema
          • Segurança Local Atual = Permitir Acesso ao Sistema
            • Re: Erro ao tentar gerar pdf.
              Fernanda Borsari

              Já fiz esses testes...e mesmo assim ele abre a caixinha do macro quando clico no botão =(

                • Re: Erro ao tentar gerar pdf.
                  Yuri Nicolett

                  Então existe algum erro na sua macro, se possível disponibilize o código aqui para verificarmos

                    • Re: Erro ao tentar gerar pdf.
                      Fernanda Borsari

                      Yuri, se eu não me engano é um código seu que peguei no fórum.

                       

                      Segue:

                       

                       

                      Sub importacao

                       

                       

                      'Imprime Tabela de Preço

                      'Chamada da função passando os seguintes argumentos - 1: Nome do arquivo a ser gerado - 2: Nome do Report a ser gerado

                      PrintPDF "importacao", "Import01"

                      ActiveDocument.GetApplication.WaitForIdle

                       

                       

                       

                      End Sub

                       

                       

                      Sub PrintPDF(ReportName, ReportID)

                       

                       

                        'Caminho a ser gerado o relatório encontra-se na variável

                        Path = ActiveDocument.Evaluate("vPathArquivos")

                       

                        'Criando instância do PDFCreator

                          Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")

                       

                       

                        'Variáveis de configuração da biblioteca PDFCreator

                          With pdfjob

                       

                       

                         'Verificações da fila da impressora

                            If .cStart("/NoProcessingAtStartup") = False Then

                               If .cStart("/NoProcessingAtStartup", True) = False Then

                                 'Caso não tenha nenhum objeto na fila de impressão, termina a macro.

                                 Exit Sub

                               End if

                              

                               'Caso tenha objeto na fila de impressão, torne a impressão visível

                               .cVisible = True

                            End If

                       

                       

                            .cOption("UseAutosave") = 1 'Permitir o Autosave

                            .cOption("UseAutosaveDirectory") = 1 'Permitir que grave no diretório

                            .cOption("AutosaveDirectory") = Path 'Caminho que será gravado o relatório

                            .cOption("AutosaveFilename") = ReportName 'Nome que será gravado o relatório

                            .cOption("AutosaveFormat") = 0 'Formato PDF

                            .cClearCache

                       

                       

                        'Finalizando as configurações da biblioteca PDFCreator

                          End With

                       

                       

                          'Imprime o relatório

                          ActiveDocument.PrintReport "Import01", "PDFCreator"

                       

                       

                          'Aguarde até que o processo entre na fila de impressão

                          Do Until pdfjob.cCountOfPrintjobs = 1

                          ActiveDocument.GetApplication.Sleep 20

                          Loop

                          pdfjob.cPrinterStop = False

                       

                       

                          'Aguarda até que a fila de impressão esteja vazia

                          Do Until pdfjob.cCountOfPrintjobs = 0

                          ActiveDocument.GetApplication.Sleep 20

                          Loop

                         

                          'Termina o processo

                          pdfjob.cClose

                         

                          'Zerando a variável

                          Set pdfjob = Nothing

                       

                       

                       

                       

                      End Sub

                      • Re: Erro ao tentar gerar pdf.
                        Fernanda Borsari

                        Bom dia Yuri,

                         

                        acredita que era a versão do PDFCreator? Baixei a versão mais recente (2.2) e não funcionou, ai fiz o teste com a versão que você cita aqui no fórum 1.7.3 ....deu super certo rs

                         

                        Obrigada pela atenção!!!