Recebi um questionamento sobre como enviar a visualização de uma planilha, por e-mail. Claro, pode ser na forma de imagem, mas eu considero como melhor forma, o envio como PDF.
Desta forma vamos à solução!
A primeira etapa é definir a área de impressão de sua planilha e os ajustes de página, como a Orientação (Retrato ou Paisagem) e se deseja que imprimi em múltiplas páginas ou ajuste o conteúdo a uma única página, depois é executar a macro abaixo que ela faz o resto, mas claro que você precisa ajustar o que coloquei em negrito antes de roda-la:
Sub eMailActiveWorksheet()
' esta macro envia apenas a planilha como PDF
Dim OL As Object
Dim EmailItem As Object
Dim Wb As Workbook
Dim Arquivo As String
Application.ScreenUpdating = False
Set OL = CreateObject("Outlook.Application")
Set EmailItem = OL.CreateItem(olMailItem)
Arquivo = "C:\Temp\" & Replace(ActiveSheet.Name & " - " & ActiveWorkbook.Name, ".xlsm", ".pdf")
ActiveSheet.Copy
Set Wb = ActiveWorkbook
Wb.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
Arquivo, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
With EmailItem
.Subject = "Assunto_do_e-mail"
.Body = "Mensagem_do_e-mail"
.To = "destinatário_do_email"
.Importance = olImportanceNormal
.Attachments.Add Arquivo
.Send
End With
Wb.Close False
Application.ScreenUpdating = True
Set Wb = Nothing
Set OL = Nothing
Set EmailItem = Nothing
End Sub
Substitua “C:\Temp\” pela pasta de sua preferência.
