Print just the first page in Outlook [VIDEO]

Save paper and time

If I print emails I typically only want the first page. To do that in Outlook takes a few clicks each time.

To make printing just the first page easier I created a macro. You can’t record macros in Outlook, so I used the SendKeys commands, which mimics key strokes.

Outlook macros are a bit different to set up than Excel, so I have done a video to show you the steps. The macro is below with the steps to install underneath.

Warning: Once you install the macro Outlook will ask you to enable macros each time it opens.

Second Warning: This technique may affect your Num Lock setting – it does mine, but i still use it.

This macro works for Outlook 2010.

Sub Print_One_Page()
 
 SendKeys "%FPR" 
 SendKeys "%S"
 SendKeys "1"
 SendKeys "{ENTER}"
 
End Sub

Installation steps

  1. Copy the code above
  2. In Outlook press Alt + F11 to open the VBA window
  3. Double click the ThisOutlookSession on the left of screen
  4. Copy the code from above and paste into the code window on the right of the VBA screen – see image below.Outlool VBA with macro
  5. Close the VBA Window
  6. Click the File tab, click Options, then click Quick Access Toolbar option on the left
  7. In the drop down select Macros
  8. Select the Print_One_Page macro and click the Add button – see image below.Macro selection
  9. On the right of screen select the macro at the bottom of the list and click Modify – see image below.Select icon for macro
  10. Select an icon and click the OK button and click OK to finish
  11. When you close Outlook after installing the macro it will ask you whether to save the changes – make sure you save them.

Clicking the the icon (yellow smiley face) will print just the first page of the selected or current email.

Added 2nd May 2013 – the image below shows my macro security settings in Outlook 2013. (File Tab > Options > Trust Center > Trust Center Settings button)

outlook security settings

Please note: I reserve the right to delete comments that are offensive or off-topic.

Leave a Reply

Your email address will not be published. Required fields are marked *

18 thoughts on “Print just the first page in Outlook [VIDEO]

  1. Thanks for this. However this macro worked fine until I closed Outlook. Then it didn’t work again. Stepping into the macro it said “macros for this project are disabled”. The settings in the trust centre are still the same. How is this fixable.

    • In the Trust Center you need to have the Macro setting set to Notifications for all macros – then when you start Outlook a dialog is displayed asking you to enable macros.

      • Thanks for your response! I had it on this setting already but it didn’t seem to make any difference. I self-certified the macro for a digital sig and then for some reason it started working. When I tried running the macro is wanted me to trust the publisher, which I did and then it seemed to work again. Peculiar! Anyway, very good macro!

        • I just added a Second Warning – this technique can affect the Num Lock status. Apparently its a bug with using Send Keys.

          • Yes, I just came back to ask about the Num Lock status issue. It’s worth putting up with, butI have seen some macro solutions involving GetKeyboardState command. Haven’t got it to work yet!

  2. I had to set my macros in Outlook 2013 in the trust center to allow all macros before this would work. I don’t think this is very secure for my computer. What should I do?

  3. First, thanks so much for the macro, it has saved heaps of paper and time!
    Can the macro be expanded to select a particular printer first? I have installed and named several versions of my printer, each with preferences set for a particular purpose e.g. FX C7775 black duplex stapled hole punch
    I can change the default printer but unfortunately our work setup is such that at each login the default printer is set to colour, which is the most convenient for most printing jobs in our office.
    Thnx
    Liz

      • I suspected so but think I have a half solution. I’ve created a macro and button for word to print from the colour printer, and added a Devices and Printers shortcut to my startup folder, hopefully it will remind me to change my default printer to the black one.

    • I have been using a slightly different version in Excel 2013.

      Sub Print_One_Page()

      ‘ SendKeys “%FPR”
      ‘ SendKeys “%S”
      ‘ SendKeys “1”
      ‘ SendKeys “{ENTER}”

      CreateObject(“WScript.Shell”).SendKeys “%FPR”
      CreateObject(“WScript.Shell”).SendKeys “%S”
      CreateObject(“WScript.Shell”).SendKeys “1”
      CreateObject(“WScript.Shell”).SendKeys “{ENTER}”

      If GetKeyState(VK_NUMLOCK) <> 1 Then CreateObject(“WScript.Shell”).SendKeys “{NUMLOCK}”, True

      End Sub

      • Sorry all the code for the latest version is shown below.

        Option Explicit

        Public Const VK_NUMLOCK = &H90

        Public Declare Function GetKeyState Lib “user32” (ByVal nVirtKey As Long) As Long
        Sub Print_One_Page()

        ‘ SendKeys “%FPR”
        ‘ SendKeys “%S”
        ‘ SendKeys “1”
        ‘ SendKeys “{ENTER}”

        CreateObject(“WScript.Shell”).SendKeys “%FPR”
        CreateObject(“WScript.Shell”).SendKeys “%S”
        CreateObject(“WScript.Shell”).SendKeys “1”
        CreateObject(“WScript.Shell”).SendKeys “{ENTER}”

        If GetKeyState(VK_NUMLOCK) <> 1 Then CreateObject(“WScript.Shell”).SendKeys “{NUMLOCK}”, True

        End Sub

  4. Thought I had found the answer I’d been looking for……
    but when I use the macro, it doesn’t print, but instead it displays on screen all the hidden ‘notes’ and reminders from a program I use called TurboNote – how can I stop that happening?