Like all print operations, you will get a print dialog. You can probably use SendKeys() to fill it.

Here is what I got when I recorded it. [VBA] ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False[/VBA]

You can then run your Outlook operation to send the emails.