Print Just First Page in Outlook

Leesha
BronzeLounger
Posts: 1484
Joined: 05 Feb 2010, 22:25

Print Just First Page in Outlook

Post by Leesha »

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

User avatar
HansV
Administrator
Posts: 78237
Joined: 16 Jan 2010, 00:14
Status: Microsoft MVP
Location: Wageningen, The Netherlands

Re: Print Just First Page in Outlook

Post by HansV »

In File > Print, click Print Options. The user can select the page to print there.

S1937.png
You do not have the required permissions to view the files attached to this post.
Best wishes,
Hans

Leesha
BronzeLounger
Posts: 1484
Joined: 05 Feb 2010, 22:25

Re: Print Just First Page in Outlook

Post by Leesha »

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

User avatar
HansV
Administrator
Posts: 78237
Joined: 16 Jan 2010, 00:14
Status: Microsoft MVP
Location: Wageningen, The Netherlands

Re: Print Just First Page in Outlook

Post by HansV »

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.

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

Leesha
BronzeLounger
Posts: 1484
Joined: 05 Feb 2010, 22:25

Re: Print Just First Page in Outlook

Post by Leesha »

Awesome! I can't wait to try it. Thanks Hans!