Hi,
I have a user that prints out groups of emails with invoices on a monthly basis. They get email notifications when the email address is incorrect. They highlight however many there are and do a quick print. The problem is that they can't select the page they want to print, which is page 2, and as a result each email prints 6 or more pages. There is no option to Print and then select the page they want. Is there any way around this?
Thanks,
Leesha
Print Just First Page in Outlook
-
- Administrator
- Posts: 78237
- Joined: 16 Jan 2010, 00:14
- Status: Microsoft MVP
- Location: Wageningen, The Netherlands
Re: Print Just First Page in Outlook
In File > Print, click Print Options. The user can select the page to print there.
You do not have the required permissions to view the files attached to this post.
Best wishes,
Hans
Hans
-
- BronzeLounger
- Posts: 1484
- Joined: 05 Feb 2010, 22:25
Re: Print Just First Page in Outlook
Hi Hans,
We tried this but it only prints the page listed of the first email, not all of them. :-( Their goal is to do them bulk vs one at a time.
Leesha
We tried this but it only prints the page listed of the first email, not all of them. :-( Their goal is to do them bulk vs one at a time.
Leesha
-
- Administrator
- Posts: 78237
- Joined: 16 Jan 2010, 00:14
- Status: Microsoft MVP
- Location: Wageningen, The Netherlands
Re: Print Just First Page in Outlook
Outlook has no built-in support for this.
You could use a macro in Outlook for this, but each user would have to install the macro, and allow macros...
The macro copies the text of each selected email item into a Word document and prints the first page of that document from Word.
You could use a macro in Outlook for this, but each user would have to install the macro, and allow macros...
The macro copies the text of each selected email item into a Word document and prints the first page of that document from Word.
Code: Select all
Sub PrintFirstPage()
Dim itm
Dim doc1
Dim wrd
Dim doc2
Dim f As Boolean
If TypeName(ActiveWindow) = "Explorer" Then
On Error Resume Next
Set wrd = GetObject(Class:="Word.Application")
If wrd Is Nothing Then
Set wrd = CreateObject(Class:="Word.Application")
f = True
End If
On Error GoTo ErrHandler
For Each itm In ActiveWindow.Selection
itm.Display
Set doc1 = itm.GetInspector.WordEditor
doc1.Content.Copy
Set doc2 = wrd.Documents.Add
doc2.Content.Paste
doc2.PrintOut Range:=3, From:="1", To:="1"
doc2.Close SaveChanges:=False
Next itm
End If
ExitHandler:
On Error Resume Next
If f Then
wrd.Quit SaveChanges:=False
End If
Exit Sub
ErrHandler:
MsgBox Err.Description, vbExclamation
Resume ExitHandler
End Sub
Best wishes,
Hans
Hans
-
- BronzeLounger
- Posts: 1484
- Joined: 05 Feb 2010, 22:25
Re: Print Just First Page in Outlook
Awesome! I can't wait to try it. Thanks Hans!