Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
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?
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!!!
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:
Já fiz esses testes...e mesmo assim ele abre a caixinha do macro quando clico no botão =(
Então existe algum erro na sua macro, se possível disponibilize o código aqui para verificarmos
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
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!!!