Exportar via macro, para PrimoPDF

luizbezerra — Sat, 17 Dec 2016 12:36:29 GMT

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

topic Exportar via macro, para PrimoPDF in QlikView