topic Re: Exportando para PDF (Macro) in Brasil

Exportando para PDF (Macro)

nicolett_yuri — Fri, 24 Oct 2014 12:37:33 GMT

Fala galera!

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.

Qualquer dúvida por favor comentem!

Abraços

Re: Exportando para PDF (Macro)

pablolabbe — Tue, 28 Oct 2014 15:55:05 GMT

O problema de todas as soluções de macros que geram pdf é que dependendo do driver PDF ela não funciona ou se mostra instável.

Me parece que esta funciona sem problemas.

Valeu a dica Yuri Nicolett

Abraço,

Pablo Labbe

Re: Exportando para PDF (Macro)

nicolett_yuri — Wed, 29 Oct 2014 13:10:10 GMT

Estou com um projeto ativo em um cliente que gera 300 arquivos/dia e até o momento não ocorreu nenhum problema utilizando esse método.

Qualquer coisa vou alterando o código e postando para vocês!

Re: Exportando para PDF (Macro)

Thu, 30 Oct 2014 13:01:46 GMT

Pessoal, esta dando erro na verificação do script. Sabem pq?

Re: Exportando para PDF (Macro)

nicolett_yuri — Thu, 30 Oct 2014 13:37:42 GMT

Rodrigo, faltou você criar o nome da sub.

No início do seu código (primeira linha) coloque: Sub NOMEDASUB

e na última linha do seu código coloque: End Sub

Re: Exportando para PDF (Macro)

nicolett_yuri — Thu, 30 Oct 2014 13:38:19 GMT

Caso tenha maiores dúvidas, faça o download do QVW que deixei em anexo, talvez ele te ajude um pouco

Re: Exportando para PDF (Macro)

Thu, 30 Oct 2014 15:24:33 GMT

Yuri, fiz o que você propos, mas ainda continua com erro ali destacado na imagem...

Re: Exportando para PDF (Macro)

nicolett_yuri — Thu, 30 Oct 2014 15:39:50 GMT

Rodrigo, como você copiou e colou o código que passei no post, ele esta pegando os caracteres incorretamente.

Troque todos os “ por "

Troque todos os ” por "

Troque todos os ‘ por '

Re: Exportando para PDF (Macro)

nicolett_yuri — Thu, 30 Oct 2014 15:43:32 GMT

Estou corrigindo os sinais de aspas e apóstrofe no POST, assim quem copiar e colar o código não terá mais esse problema que o Rodrigo Silva teve!

Re: Exportando para PDF (Macro)

Thu, 30 Oct 2014 16:44:31 GMT

O qlik não está encontrando o controle activex...preciso instalar algo antes do pdfcreator?

Re: Exportando para PDF (Macro)

nicolett_yuri — Thu, 30 Oct 2014 16:47:54 GMT

Rodrigo, primeiro você precisa ter o PDFCreator instalado em seu computador.

Não esqueça também de alterar a parte de segurança da macro

Módulo de Segurança Requerido: Altere o valor para "Acesso ao sistema"

Segurança Local Atual: Altere o valor para "Permitir Acesso ao sistema"

Re: Exportando para PDF (Macro)

Thu, 30 Oct 2014 17:23:22 GMT

Yuri, fiz os procedimentos certinho, tenho PDFCreator instalado, abri a segurança da macro e agora gerou outro erro destacado na imagem abaixo...

Re: Exportando para PDF (Macro)

nicolett_yuri — Thu, 30 Oct 2014 17:33:30 GMT

Rodrigo, esses erros estão me ajudando a melhorar o post, muito obrigado !

Você deve trocar o ReportID pelo ID do relatório que deseja imprimir. Coloque o valor entre aspas

Por exemplo: Você criou o relatório RP01, desta forma essa linha deve ficar.

ActiveDocument.PrintReport "RP01", "PDFCreator"

Re: Exportando para PDF (Macro)

Thu, 30 Oct 2014 17:52:27 GMT

Yuri, meu relatório no momento está vazio. Funcionou o código, mas depois que peço para testar ele abre a caixa de diálogo normalmente, dizendo que o relatório está vazio e depois trava o programa...

dai tenho que fechar para continuar mexendo no mesmo

Re: Exportando para PDF (Macro)

Thu, 30 Oct 2014 18:05:52 GMT

começou a funcionar, mas preciso aprender mais de relatórios em outros posts!!

para eu colocar a macro feita, preciso criar um objeto na dash?

Re: Exportando para PDF (Macro)

nicolett_yuri — Thu, 30 Oct 2014 18:09:07 GMT

Não entendi sua dúvida Rodrigo

Re: Exportando para PDF (Macro)

Thu, 30 Oct 2014 18:18:35 GMT

eu criei um modulo certo? Este módulo é uma macro certo? como eu coloco ela para funcionar dentro do meu dash...ou seja, seria um botão do tipo (clique aqui para gerar um PDF)?

Re: Exportando para PDF (Macro)

nicolett_yuri — Thu, 30 Oct 2014 18:23:32 GMT

Ok, você pode, por exemplo, criar um botão com uma ação para chamar a sua macro.

Ao criar o botão, vá na aba Ações, selecione a ação Executar Macro (Externo -> Executar Macro) e coloque o nome do módulo que você criou na ação.

Re: Exportando para PDF (Macro)

Thu, 30 Oct 2014 18:50:46 GMT

yuri, posso te enviar o arquivo para vc analisar pq não gera?

Re: Exportando para PDF (Macro)

nicolett_yuri — Thu, 30 Oct 2014 18:58:46 GMT

Pode!

yuri.nicolett@gmail.com