Como imprimir em PDF com o Excel VBA?

Question

Como o título sugere ... Estou procurando expandir minha automação para incluir diretamente a impressão em PDF. A (s) macro (s) que escrevi já formata a área de impressão e a configuração da página conforme necessário. Mas quando eu vou gravar minhas macros nada para impressão, a mudança de impressoras ou salvar em arquivo é capturada.

Existe uma maneira de conseguir isso? Eu poderia até mesmo obter se apenas solicitou um prompt salvar local. O nome do arquivo que imagino poderia ser gerado automaticamente ao capturar informações existentes na planilha.

    

Answer 1

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

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users506090\Desktop\Book1.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True  

Aqui você pode substituir o caminho C: \ Users \ 46506090 \ Desktop \ Book1.pdf e o nome do arquivo ao seu gosto.

Editar: Se você pretende publicar a pasta de trabalho inteira como PDF e não apenas a planilha na qual você está trabalhando, substitua a planilha ativa .ExportAsFixedFormat para Active Workbook .ExportAsFixedFormat