Erro ao tentar gerar pdf.

[#1]

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?

[nicolett_yuri]

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

[#3]

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

[nicolett_yuri]

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

[#5]

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

[#6 · Accepted solution]

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