Tempos atrás me perguntaram como posso automatizar a exportação de relatórios para PDF através de Macros. Confesso que há muito tempo venho fugindo desse assunto, porém estou trabalhando em um projeto e uma das atividades é essa! Acabou a fuga rsrs.
Vamos lá.
Em primeiro lugar, a fonte de informação deverá ser um Report (Relatório) do QlikView, tendo este relatório pronto podemos prosseguir com a macro.
A biblioteca que estou utilizando para exportação é PDFCreator 1.7.3, pois esta é uma ferramenta gratuita e na exportação não houver perda na qualidade de imagem (pelo menos no meu caso). http://www.pdfforge.org/pdfcreator/download.
Bom, vamos ao código em VBScript. Cada linha de execução possui um comentário/explicação em verde e negrito.
sub PDF
'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 ReportID, "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
Praticamente essa é a forma de chamar a biblioteca do PDFCreator. Agora basta criar uma sub para chamar essa macro e então utiliza-la.
Para facilitar o entendimento, estou anexando uma aplicação de exemplo.
Observação: Fiz o teste de execução através do QlikView Client e também acesso web (IE.Plugin) e ambos funcionaram conforme o determinado.
Na época que desenvolvi utilizei a versão 1.7.3, talvez na nova versão tenha alguma mudança na forma de chamar o PDFCreator. Vou verificar e comunico a todos
A macro funciona muito bem, mas por algum motivo, quando faço o agendador de tarefas rodar o Qlikview (que tem a trigger de chamar a Macro), ele simplesmente não salva o relatório e fica aberto, esperando que salve.
Antigamente isso funcionava, mas com um outro plugin (Bullzip Printer).
Criei uma task no agendador para abrir o Qlikview. Ao abrir, é disparado uma macro para gerar o relatório. Aparece que está imprimindo, mas ao gravar, nada faz.
Quando fecho o Qlikview e abro a interface do Pdf Printer, está lá o documento pendente, sendo que ao abrir o QVW na mão, ele funciona.
Ao clicar no botão o mesmo abre a caixa de edição do modulo da macro e não executa a criação do PDF.
Fiz o downloado do PDFCreator versão 1.7.3 configurações minimas e mesmo assim não exibe mensagem de erro e nem gera o pdf, alguma outra recomendação a fazer?
Fiz as seguintes alterações no codigo da macro
'Chamada da função passando os seguintes argumentos - 1: Nome do arquivo a ser gerado - 2: Nome do Report a ser gerado
