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
- At the very outset, launch your Outlook application.
- Then, in the main Outlook window, press “Alt + F11” key buttons.
- Next you will get access to the VBA editor, in which you need open an unused module or simply insert a new module.
- 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
- After that, you can exit the current macro window.
- Then go to “File” > “Options” > “Quick Access Toolbar” to add this new macro to Quick Access Toolbar.
- Later you ought to turn to “Trust Center” > “Trust Center Settings” > “Macro Settings” to enable all macros.
- 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
Leave a Reply