here is a basic to get you started, automates the printing of emails, selected by criteria
Set myfolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set g = myfolder.Items.Restrict("[subject] > 'xyz123'") ' change the field and criteria to suit your requirement
For Each msg In g
msg.PrintOut ' prints to default printer
Next
if you have a pdf printer driver installed and set as your default printer, you can send directly to it, some can be fully automated, others have dialog to click
it would be possible to extend this to include the printing of attachments
see the help file for information on what fields you can use for restrict