Email in body of outlook - landscape?

[MOB]

I have some code which includes this;

With ActiveSheet.MailEnvelope
    .Introduction = ""
    .Item.To = "email address"
    .Item.Subject = "subject"
    .Item.Send
End With

It works fine, however the data is quite wide so the email has to be manually set as Landscape to be able to print it.

Is there a way to automatically set the outlook item to be landscape rather than portrait?

I thought this would work but alas not;

.PageLayout = Landscape

TIA

 

[Macropod]

Email message print orientation is controlled at the recipient's end. Perhaps you should be sending the content as an attachment (Word/Excel/PDF), which gives you the opportunity to control the page setup.

 

[MOB]

Thanks, ended up with a PDF attachment instead.