Como imprimir uma planilha em PDF pelo o VBA?

Question

Amigos,

 

Gostaria de saber se há algum modo de imprimir uma planilha do Excel em PDF via código. Eu tenho instalado em minha maquina o Acrobat PDFWriter.

 

Muito Obrigado a todos.

Answer 1

Rafael Pissardo wrote:

Amigos,   Gostaria de saber se há algum modo de imprimir uma planilha do Excel em PDF via código. Eu tenho instalado em minha maquina o Acrobat PDFWriter.   Muito Obrigado a todos.

 

Rafael,

Infelizmente não disponho do Acrobat PDFWriter, para poder fazer os testes necessários.

Há alguns programas freeware que podem ser utilizados para geração de arquivos PDF, criando uma impressora virtual, por meio da qual os arquivos do Excel podem ser "impressos em PDF".

Utilizo em casa e na empresa onde trabalho o programa PrimoPDF que vc pode obter via download.

Para este tipo de abordagem podemos fazer a geração do PDF por meio de um procedimento como o seguinte:

 

Code Snippet

Sub Imprimir_PDF()

ActiveWindow.SelectedSheets.PrintOut _
    Copies:=1, _
    ActivePrinter:="PrimoPDF em Ne00:"

End Sub

 

 

No caso acima, o método PrintOut foi utilizado para enviar todas as planilhas selecionadas de um arquivo para a impressão.

Espero que o auxilie.

[ ] s

 

Answer 2

Rafael Pissardo wrote:

Amigos,   Gostaria de saber se há algum modo de imprimir uma planilha do Excel em PDF via código. Eu tenho instalado em minha maquina o Acrobat PDFWriter.   Muito Obrigado a todos.

 

 

Rafael,

Infelizmente não disponho do Acrobat PDFWriter, para poder fazer os testes necessários.

Há alguns programas freeware que podem ser utilizados para geração de arquivos PDF, criando uma impressora virtual, por meio da qual os arquivos do Excel podem ser "impressos em PDF".

Utilizo em casa e na empresa onde trabalho o programa PrimoPDF que vc pode obter via download.

Para este tipo de abordagem podemos fazer a geração do PDF por meio de um procedimento como o seguinte:

 

 

Code Snippet

Sub Imprimir_PDF()

ActiveWindow.SelectedSheets.PrintOut _
    Copies:=1, _
    ActivePrinter:="PrimoPDF em Ne00:"

End Sub

 

 

 

No caso acima, o método PrintOut foi utilizado para enviar todas as planilhas selecionadas de um arquivo para a impressão.

Espero que o auxilie.

[ ] s

 

Olá Cara, blz??
então, como eu faço para direcionar para uma impressora em especifico para gerar o arquivo pdf???
porque aqui no trabalho temos uma impressora pela rede que gera esses pdfs. Como eu identifico ela??
Fico grato desde já

Answer 3

Experimentei e funcionou:

 

Code Snippet

Sub Imprimir_PDF()

ActiveWindow.SelectedSheets.PrintOut _
    Copies:=1, _
    ActivePrinter:="PrimoPDF em Ne00:"

End Sub