Notifications
Clear all

Exportar para PDF

5 Posts
2 Usuários
0 Reactions
1,079 Visualizações
(@bilokas)
Posts: 168
Estimable Member
Topic starter
 

Olá amigos,
Fazendo uma pesquisa no próprio fórum encontrei um código muito útil para complementar meu projeto no que tanje a criação de relatórios para impressão.
O código abaixo realiza a exportação da Planilha ativa para um arquivo pdf que é salvo no computador em "C:TESTE" com o nome do arquivo em "A1"
O que eu preciso é justamente saber se há como realizar esse procedimento sem a necessidade de criar um arquivo novo toda vez que rodar o código (supondo que eu mude o nome em A1). Ou seja, criar uma espécie de arquivo temporário apenas para o usário imprimir. logicamente se o cara quiser "Salvar como", o próprio Visualzador da Adobe possibilita isso.

Sub ExportPDF()
Dim NovoNome As String

NovoNome = "C:TESTE" & "Relatorio " & _
ActiveSheet.Range("A1").Value & ".pdf"
    
    ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=NovoNome, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
    
End Sub


DGAF / DVGD - Divisão de Gestão de Documentos
Rafael A. Guimarães
raguimaraes@fazenda.rj.gov.br

 
Postado : 16/01/2014 9:59 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

bilokas,

Boa Tarde!

Mande imprimir diretamente em PDF, pelo PDFCreator, por exemplo, ou por outro aplicativo gerador de PDF que esteja instalado em seu micro. Assim:

    Application.ActivePrinter = "PDFCreator em Ne00:"
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""PDFCreator em Ne00:"",,TRUE,,FALSE)"

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 16/01/2014 10:13 am
(@bilokas)
Posts: 168
Estimable Member
Topic starter
 

Não consegui usar o código que você indicou.


DGAF / DVGD - Divisão de Gestão de Documentos
Rafael A. Guimarães
raguimaraes@fazenda.rj.gov.br

 
Postado : 16/01/2014 10:27 am
(@bilokas)
Posts: 168
Estimable Member
Topic starter
 

Erro em tempo de execução '1004':
O método 'ActivePrinter' do objeto '_Application' falhou

Nota: Eu tenho o PDFCreator instalado no computador.


DGAF / DVGD - Divisão de Gestão de Documentos
Rafael A. Guimarães
raguimaraes@fazenda.rj.gov.br

 
Postado : 16/01/2014 10:35 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Qual é a versão do seu Excel? Eu estou utilizando o Excel 2007.

Você pode gravar uma macro... Inicie o gravador de macros e siga normalmente os passos para imprimir: Arquivos/Imprimir/escolher a impressora em PDF e clicar em OK. Isso gravará a macro em seu micro.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 16/01/2014 10:37 am