Exportar via macro, para PrimoPDF

[luizbezerra]

Srs, Bom dia !

Tenho a necessidade de exportar PDF, utilizando o PrimoPDF.

Eu utilizo o PDFCreator, que funciona perfeitamente.

Porém na empresa que trabalho atualmente,apenas pode ter na máquina instalado o Primo PDF.

Eu utilizo a biblioteca abaixo , mas trava a aplicação.

Alguém aqui na comunidade, utiliza o PrimoPDF ?

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

SUB GERAR_PDF

  tempFolder = "C:\Users\luiz.bezerra\Downloads" ' Pode-se utilizar uma variável.

  reportID = "Document\RP_EXP_PDF" 'ID DO RELATORIO

  reportName = "EXP_PDF"

  reportFile = tempFolder & reportName & ".pdf"

  printReportPDF reportID, reportFile

  checkOutputFile(reportFile) ' É verificado se o relatório foi criado corretamente

END SUB

'==================== 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

'==================== Função Verifica se o PDF foi criado ====================

FUNCTION checkOutputFile(pdfFile)

  SET fileTest = CreateObject("Scripting.FileSystemObject")

  currentStatus = fileTest.FileExists (pdfFile)

  WHILE NOT currentStatus

  currentStatus = fileTest.FileExists (pdfFile)

  WEND

  SET fileTest = NOTHING

END FUNCTION