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.