How to Print a Contact Group in Only One Page in Your Outlook

Outlook prints contact group in two pages. The first page is mostly blank, only with the group name, and the second page contains group members. If you wish to print a contact group in only one page, you can utilize the method shared in this article.

Perhaps you have noticed that Outlook prints contact group, by default, in two pages. The first page is printing the contact group name only, and the second one is printing the group members. In this case, you may feel that it is wasting papers. Therefore, in the followings, we will teach you how to print both contact group name and members in the same page.

Print a Contact Group in Only One Page

1. At the very outset, launch your Outlook application.
2. Then, in the main Outlook window, press “Alt + F11” key buttons.
3. Next you will get access to the VBA editor, in which you need open an unused module or simply insert a new module.
4. Subsequently, copy the following VBA code into this module.

Sub PrintAContactGroupOnOnePage()
    Dim objContactGroup As Outlook.DistListItem
    Dim i As Long
    Dim objMember As Outlook.recipient
    Dim strGroupInfo As String
    Dim objWordApp As Word.Application
    Dim objTempDocument As Word.Document
 
    'Get the source contact group
    Select Case Application.ActiveWindow.Class
           Case olExplorer
                Set objContactGroup = Application.ActiveExplorer.Selection(1)
           Case olInspector
                Set objContactGroup = Application.ActiveInspector.CurrentItem
    End Select
 
    For i = 1 To objContactGroup.MemberCount
        Set objMember = objContactGroup.GetMember(i)
        strGroupInfo = strGroupInfo & objMember.Name & ": " & objMember.Address & vbCr
    Next
 
    'Gather all essential info about the contact group
    strGroupInfo = "Contact Group Name: " & objContactGroup.DLName & vbCr _
      & "====================================================" & vbCr & vbCr & _
      "Members:" & vbCr & "-------------------------------------------------" _
      & vbCr & strGroupInfo
 
    'create a temp word document
    Set objWordApp = CreateObject("Word.Application")
    Set objTempDocument = objWordApp.Documents.Add
    objWordApp.Visible = True
    objTempDocument.Activate
 
    'Insert the Contact Group info into the temp word document
    With objTempDocument.Range(0, 0)
         .Text = strGroupInfo
         'Change the font to your liking
         With .Font
              .Name = "Cambria"
              .Color = wdColorBlack
              .Size = 12
        End With
    End With
 
    'Print the temp document
    objTempDocument.PrintOut
 
    'Close the temp document
    objTempDocument.Close False
    objWordApp.Quit
End Sub

5. After that, you can exit the current macro window.
6. Then go to “File” > “Options” > “Quick Access Toolbar” to add this new macro to Quick Access Toolbar.
7. Later you ought to turn to “Trust Center” > “Trust Center Settings” > “Macro Settings” to enable all macros.
8. Finally you can take a shot:

• First off, turn to Contacts folder and select or open a contact group.
• Then click on the macro button in Quick Access Toolbar.
• At once, this contact group will be printed out in only one page, shown as the following screenshot:

Apply a Potent Repair Utility in Case of No Backups

Perhaps you have realized the importance of backups. With backups, you can get back your Outlook data without needs to fix Outlook file. However, if you have no effective backups, it is recommended to utilize a robust and preeminent fix tool, such as DataNumen Outlook Repair.

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including damaged mdf and outlook repair software products. For more information visit www.datanumen.com