☰

Como imprimir em PDF com Excel VBA?

tag-icon • tag-icon microsoft-excel microsoft-excel-2010 pdf vba
Como imprimir em PDF com Excel VBA?

Como o título sugere... pretendo expandir minha automação para incluir a impressão direta em PDF. As macros que escrevi já formatam a área de impressão e a configuração da página conforme necessário. Mas quando vou gravar minhas macros nada para imprimir, trocar de impressora ou salvar em arquivo é capturado.

Existe uma maneira de conseguir isso? Eu poderia até sobreviver se fosse necessário apenas um prompt para salvar o local. O nome do arquivo que eu imagino poderia ser gerado automaticamente capturando as informações existentes na planilha.

Responder1

se você estiver usando o Excel 2010 e superior, o Excel fornece um complemento interno que permite salvar o arquivo no formato PDF.
Use o seguinte código em sua macro para salvar seu arquivo como PDF

ActiveSheet.ExportAsFixedFormat Tipo:=xlTypePDF, Nome do arquivo:= _
        "C:\Users\46506090\Desktop\Book1.pdf", Qualidade:=xlQualityStandard, _
        IncluiDocProperties:=Verdadeiro, IgnorePrintAreas:=Falso, OpenAfterPublish:= _
        Verdadeiro

Aqui você pode substituir o caminhoC:\Usuários\46506090\Desktop\Livro1.pdfe nome do arquivo ao seu gosto.

Editar: se você pretende publicar toda a pasta de trabalho como PDF e não apenas a planilha em que está trabalhando, basta substituir AtivoFolha.ExportAsFixedFormat para ativoPasta de trabalho.ExportAsFixedFormat

informação relacionada