--- description: If you would like to quickly print all tables without the other texts in an Outlook email, you can utilize either of the 2 approaches to accomplish it. title: 2 Methods to Quickly Print All Tables in Your Outlook Email image: https://www.datanumen.com/blogs/wp-content/uploads/2017/07/quickly-print-all-tables-in-your-outlook-email.jpg --- - - - [Home](https://www.datanumen.com/blogs/) > [Solutions](https://www.datanumen.com/blogs/category/solutions/) > [Office Solutions](https://www.datanumen.com/blogs/category/solutions/office-solutions/) > [Outlook Solutions](https://www.datanumen.com/blogs/category/solutions/office-solutions/outlook-solutions/) > 2 Methods to Quickly Print All Tables in Your Outlook Email # 2 Methods to Quickly Print All Tables in Your Outlook Email [Outlook Solutions](https://www.datanumen.com/blogs/category/solutions/office-solutions/outlook-solutions/) September 29, 2025 Share Now: - - - - - - - - *If you would like to quickly print all tables without the other texts in an Outlook email, you can utilize either of the 2 approaches to accomplish it.* When you receive an email which contains many tables in the message body, at times, you may wish to extract these tables and print them out only, without the texts in the body. However, Outlook has no related functions to achieve it. Thus, in the followings, we will share you 2 means. ![Quickly Print All Tables in Your Outlook Email](https://www.datanumen.com/blogs/wp-content/uploads/2017/07/quickly-print-all-tables-in-your-outlook-email.jpg "Quickly Print All Tables in Your Outlook Email") ## Method 1: Print All Tables in Separate Pages 1. To start with, launch your Outlook program. 2. Then in the main Outlook window, press “Alt + F11” key buttons. 3. In the subsequent “Microsoft Visual Basic for Applications” window, you can find and open a module that is not in use. 4. After that, you should copy the following VBA code into this module. ``` Sub PrintAllTables_inOutlookEmail_Individually() Dim objMail As Outlook.MailItem Dim objMailDocument As Word.Document Dim objTable As Word.Table Dim lTableCount As Long Dim objWordApp As Word.Application Dim objWordDocument As Word.Document Dim i As Long 'Get the Source Mail Set objMail = Outlook.Application.ActiveExplorer.Selection.Item(1) Set objMailDocument = objMail.GetInspector.WordEditor lTableCount = objMailDocument.Tables.count Set objWordApp = CreateObject("Word.Application") objWordApp.Visible = True For i = 1 To lTableCount Set objTable = objMailDocument.Tables(i) objTable.Range.Copy 'Copy Each Table into Each Word Document Set objWordDocument = objWordApp.Documents.Add objWordDocument.Content.Paste 'Print Out Each Document objWordDocument.PrintOut objWordDocument.Close False Next objWordApp.Quit End Sub ``` ![VBA Code - Print All Tables in Separate Pages]( "VBA Code - Print All Tables in Separate Pages") 5. Later you should add the new VBA project to Quick Access Toolbar. Head to “Outlook Options” > “Quick Access Toolbar” tab to achieve it. 6. Finally you can take a shot. - Firstly, select an email which contains several tables. - Then click on the new macro button in Quick Access Toolbar. - At once, all tables will be print out in individual pages. ## Method 2: Print All Tables in Series 1. In the first place, follow the Step 1 to 2 of above way to head to the “Microsoft Visual Basic for Applications” window. 2. Then access an unused module, in which you need to copy the following VBA code into it. ``` Sub PrintAllTables_inOutlookEmail_Continuously() Dim objMail As Outlook.MailItem Dim objMailDocument As Word.Document Dim objTable As Word.Table Dim lTableCount As Long Dim objWordApp As Word.Application Dim objWordDocument As Word.Document Dim objCell As Word.Cell Set objMail = Outlook.Application.ActiveExplorer.Selection.Item(1) Set objMailDocument = objMail.GetInspector.WordEditor 'Create a Word Document Set objWordApp = CreateObject("Word.Application") Set objWordDocument = objWordApp.Documents.Add objWordDocument.Activate objWordApp.Visible = True For Each objTable In objMailDocument.Tables objTable.Range.Copy 'Copy All Tables into One Word Document With objWordDocument.Range .Collapse wdCollapseEnd .PasteSpecial wdPasteRTF .Text = vbCrLf End With Next 'Print out the Word Document objWordDocument.PrintOut objWordDocument.Close False objWordApp.Quit End Sub ``` ![VBA Code - Print All Tables in Series]( "VBA Code - Print All Tables in Series") 3. Later you can add the new macro to Quick Access Toolbar. 4. Eventually you select a source mail and hit the macro button in Quick Access Toolbar. Immediately, all the tables in this email will be copied into one Word document, which will be printed out now. ## Guard Outlook Data against Corruption Despite with numerous capabilities, Outlook cannot escape from error, crash and corruption. Thus, once you encounter a crash, your Outlook data will tend to give you a farewell. Hence, so as to prevent [Outlook corruption](https://www.datanumen.com/outlook-repair/), you need make some efforts, such as blocking hidden viruses, keeping closing Outlook properly and so on. Plus, it is prudent to get hold of an experienced repair tool, like 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 [fix mdf](https://www.datanumen.com/sql-recovery/) and outlook repair software products. For more information visit [www.datanumen.com](https://www.datanumen.com/)c Share Now: - - - - - - - - [← Previous post](https://www.datanumen.com/blogs/2-smart-ways-show-bookmarks-word-document/) [Next post →](https://www.datanumen.com/blogs/6-biggest-challenges-data-recovery-today/) Comments are closed. ![Data Recovery Blog]() Follow or like us on Facebook, LinkedIn and Twitter to get all promotions, latest news and updates on our products and company. - - - ### Featured Products - [DataNumen Outlook Repair](https://www.datanumen.com/outlook-repair/) - [DataNumen SQL Recovery](https://www.datanumen.com/sql-recovery/) - [DataNumen Exchange Recovery](https://www.datanumen.com/exchange-recovery/) - [DataNumen Access Repair](https://www.datanumen.com/access-repair/) - [DataNumen Excel Repair](https://www.datanumen.com/excel-repair/) - [DataNumen PDF Repair](https://www.datanumen.com/pdf-repair/) - [DataNumen Word Repair](https://www.datanumen.com/word-repair/) - [DataNumen Zip Repair](https://www.datanumen.com/zip-repair/) ### Popular posts ```json {"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/www.datanumen.com\/blogs\/2-methods-quickly-print-tables-outlook-email\/#article","isPartOf":{"@id":"https:\/\/www.datanumen.com\/blogs\/2-methods-quickly-print-tables-outlook-email\/"},"author":{"name":"AuthorCCW","@id":"https:\/\/www.datanumen.com\/blogs\/#\/schema\/person\/33ded6c47c77587f9158d99f05e23957"},"headline":"2 Methods to Quickly Print All Tables in Your Outlook Email","datePublished":"2017-07-18T00:58:52+00:00","dateModified":"2025-09-29T10:40:19+00:00","mainEntityOfPage":{"@id":"https:\/\/www.datanumen.com\/blogs\/2-methods-quickly-print-tables-outlook-email\/"},"wordCount":405,"commentCount":0,"publisher":{"@id":"https:\/\/www.datanumen.com\/blogs\/#organization"},"image":{"@id":"https:\/\/www.datanumen.com\/blogs\/2-methods-quickly-print-tables-outlook-email\/#primaryimage"},"thumbnailUrl":"https:\/\/www.datanumen.com\/blogs\/wp-content\/uploads\/2017\/07\/quickly-print-all-tables-in-your-outlook-email.jpg","articleSection":["Outlook Solutions"],"inLanguage":"en-US","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/www.datanumen.com\/blogs\/2-methods-quickly-print-tables-outlook-email\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/www.datanumen.com\/blogs\/2-methods-quickly-print-tables-outlook-email\/","url":"https:\/\/www.datanumen.com\/blogs\/2-methods-quickly-print-tables-outlook-email\/","name":"2 Methods to Quickly Print All Tables in Your Outlook Email","isPartOf":{"@id":"https:\/\/www.datanumen.com\/blogs\/#website"},"primaryImageOfPage":{"@id":"https:\/\/www.datanumen.com\/blogs\/2-methods-quickly-print-tables-outlook-email\/#primaryimage"},"image":{"@id":"https:\/\/www.datanumen.com\/blogs\/2-methods-quickly-print-tables-outlook-email\/#primaryimage"},"thumbnailUrl":"https:\/\/www.datanumen.com\/blogs\/wp-content\/uploads\/2017\/07\/quickly-print-all-tables-in-your-outlook-email.jpg","datePublished":"2017-07-18T00:58:52+00:00","dateModified":"2025-09-29T10:40:19+00:00","description":"If you would like to quickly print all tables without the other texts in an Outlook email, you can utilize either of the 2 approaches to accomplish it.","inLanguage":"en-US","potentialAction":[{"@type":"ReadAction","target":["https:\/\/www.datanumen.com\/blogs\/2-methods-quickly-print-tables-outlook-email\/"]}]},{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/www.datanumen.com\/blogs\/2-methods-quickly-print-tables-outlook-email\/#primaryimage","url":"https:\/\/www.datanumen.com\/blogs\/wp-content\/uploads\/2017\/07\/quickly-print-all-tables-in-your-outlook-email.jpg","contentUrl":"https:\/\/www.datanumen.com\/blogs\/wp-content\/uploads\/2017\/07\/quickly-print-all-tables-in-your-outlook-email.jpg","width":1083,"height":693,"caption":"Quickly Print All Tables in Your Outlook Email"},{"@type":"WebSite","@id":"https:\/\/www.datanumen.com\/blogs\/#website","url":"https:\/\/www.datanumen.com\/blogs\/","name":"Data Recovery Blog","description":"Discuss every aspect of data recovery","publisher":{"@id":"https:\/\/www.datanumen.com\/blogs\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/www.datanumen.com\/blogs\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"en-US"},{"@type":"Organization","@id":"https:\/\/www.datanumen.com\/blogs\/#organization","name":"Data Recovery Blog","url":"https:\/\/www.datanumen.com\/blogs\/","logo":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/www.datanumen.com\/blogs\/#\/schema\/logo\/image\/","url":"https:\/\/www.datanumen.com\/blogs\/wp-content\/uploads\/2019\/02\/logowithouttext.jpg","contentUrl":"https:\/\/www.datanumen.com\/blogs\/wp-content\/uploads\/2019\/02\/logowithouttext.jpg","width":296,"height":397,"caption":"Data Recovery Blog"},"image":{"@id":"https:\/\/www.datanumen.com\/blogs\/#\/schema\/logo\/image\/"},"sameAs":["https:\/\/www.facebook.com\/DataNumen","https:\/\/x.com\/DataNumen","http:\/\/www.linkedin.com\/company\/datanumen","https:\/\/myspace.com\/datanumen\/","http:\/\/www.pinterest.com\/datanumen\/","https:\/\/www.youtube.com\/channel\/UCVIIuuKfUBHSJauUaVP13tw"]},{"@type":"Person","@id":"https:\/\/www.datanumen.com\/blogs\/#\/schema\/person\/33ded6c47c77587f9158d99f05e23957","name":"AuthorCCW","image":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/secure.gravatar.com\/avatar\/3516ed90fc242780d3947a989f895bc46e70c3e83485d30f2b457a007906aa58?s=96&d=mm&r=g","url":"https:\/\/secure.gravatar.com\/avatar\/3516ed90fc242780d3947a989f895bc46e70c3e83485d30f2b457a007906aa58?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/3516ed90fc242780d3947a989f895bc46e70c3e83485d30f2b457a007906aa58?s=96&d=mm&r=g","caption":"AuthorCCW"},"sameAs":["https:\/\/www.datanumen.com\/"]}]} ```