Is there a way some shortcut or macro to print only the first page of an email in Outlook 2007

We have various folders that need to be printed and we need to print just the first page of each email.  The problem is that each of these folders has over 100 emails.  

We can print it manually; that is: open the email, click print, type 1 on 'page range', click ok, but it's time consuming.  We also can print the email faster by right-clicking the email and choose print, but each of these emails have a lot of replys that will be printed and we don't want to print; we just want the first page.

Is there a shortcut or macro that we can use for this?

Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Have a look here

It doesn't seem perfect but it will do the job.
A little bit of editing can make it keep the Word process instead of re-creating it for each email.

rayluvsAuthor Commented:
I pasted it and it doesn't work  I read the link and see that it creates a Word doc??? ...hoe can i create a macro that when I place the mouse on the email and right-click o include a shortcut or button to call a macro to just open the print dialog and place a 1 in page ranges and then click ok?
David LeeCommented:
Hi, Ramante.

What you described in your last post isn't possible.  There's no way to interact with the print dialog box.  Let me see if I can think of a solution.  Out of curiosity, why do you want to print just the first page?
Determine the Perfect Price for Your IT Services

Do you wonder if your IT business is truly profitable or if you should raise your prices? Learn how to calculate your overhead burden with our free interactive tool and use it to determine the right price for your IT services. Download your free eBook now!

rayluvsAuthor Commented:
Thanx BlueDevilFan.  The problem we have is that we have to print in a monthly bases all the months emails and 99% of them have a history of reply that make an email possible 20 pages or more.  Hence, we want to print just the first page.
David LeeCommented:
See Eric Legault's solution on this page.  I tested it and it worked for me on Outlook 2007.

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
rayluvsAuthor Commented:
Ok will try again
rayluvsAuthor Commented:
It looks like it will work but when run, it beepos and that it.

I have Outlook 2007.

The code copied in ALT-F11, inserted Module, then pasted the code:

   Sub PrintOnePage()
       SendKeys "%F", False
       SendKeys "P"
       SendKeys "{TAB 2}", True
       SendKeys "{DOWN}", True
       SendKeys "1"
       SendKeys "{ENTER}"
   End Sub

Are we missing something?
David LeeCommented:
How are you running it?
rayluvsAuthor Commented:
Copied the code in ALT-F11, inserted Module, then pasted the code.

For running, open email click on Developer, Macros, Run
rayluvsAuthor Commented:
How did you test it?
David LeeCommented:
I added a button to the quick access toolbar on an open message.  With a message open I clicked the button and it printed the first page of the open item.
rayluvsAuthor Commented:
Which button should we include?  Can't find in the Customize Quick Access Toolbar the Macro>>Run.
David LeeCommented:
Select Macro, then pick this macro the list of available macros.
rayluvsAuthor Commented:
Can you be more specific?  How do I added a button to the quick access toolbar on an open message?
rayluvsAuthor Commented:
We just found out how to add a Macro button to the quick access toolbar on the Open Message Window; however, still the script doesn't work.

Here are the steps we did:

- alt-f11 >> insert module >> copy/paste script
- clicked on save
- open an email
- right-click >> customize quick access toolbar
- chose macros >> added >> ok
- clicked on the Macro Button

Doesn't work; just beeps.

What are we missing here?

rayluvsAuthor Commented:
Ok got it to at least display the Print Screen:

    SendKeys "^p"
    SendKeys "{TAB 3}", True
    SendKeys "1"
    SendKeys "{ENTER}"

But can't get it to place "1" in the Range field.

Please advice.


rayluvsAuthor Commented:
FYI for all members.  We found the solution to print the first page after a great search, the solution was just to delete the "True" from the 'SendKeys "{TAB 3}", True'

Works like charm and solved our hours of printing... here it is:

      Sub PrintOnePage()
          SendKeys "^p", False
          SendKeys "{TAB 3}"
          SendKeys "1"
          SendKeys "{ENTER}"
      End Sub
rayluvsAuthor Commented:
Also selected my entry for other members.
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today

From novice to tech pro — start learning today.