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?
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?
Last Comment
ASKER
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?
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?
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?
ASKER
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.
ASKER CERTIFIED SOLUTION
THIS SOLUTION IS ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
ASKER
Ok will try again
ASKER
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?
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?
How are you running it?
ASKER
Copied the code in ALT-F11, inserted Module, then pasted the code.
For running, open email click on Developer, Macros, Run
For running, open email click on Developer, Macros, Run
ASKER
How did you test it?
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.
ASKER
Which button should we include? Can't find in the Customize Quick Access Toolbar the Macro>>Run.
Select Macro, then pick this macro the list of available macros.
ASKER
Can you be more specific? How do I added a button to the quick access toolbar on an open message?
ASKER
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?
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?
ASKER
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.
Thanx
SendKeys "^p"
SendKeys "{TAB 3}", True
SendKeys "1"
SendKeys "{ENTER}"
But can't get it to place "1" in the Range field.
Please advice.
Thanx
SOLUTION
THIS SOLUTION IS ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
ASKER
Also selected my entry for other members.
Visual Basic Classic
Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.
165K
Questions
--
Followers
--
Top Experts
Get a personalized solution from industry experts
TRUSTED BY
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.
Bromy