1. Open Word and a document of your choice.
2. Click the "Tools" menu and select "Macro", "Record New Macro".
3. In the "Macro name" box type "PrintCurrentPage" (without the quotes).
4. Click the "Toolbars" button and a dialog box will appear.
5. Click the item under "Commands" (to the right) and drag it up to an
existing toolbar (you might want to drag it to the right of the SpellCheck
(ABC) icon so you don't accidentally click the other "Print" icon by mistake
and end up with printing the entire document). Release your mouse when you
have it where you want.
6. Click on the regular "Print" icon to select it. Click the "Modify
Selection" button. Click "Copy button image".
7. Click your new button (should have a bunch of text on it). Click the
"Modify Selection" button again and click "Default Style". This changes the
text to an image.
8. Re-click "Modify Selection" and choose "Paste Button Image".
9. Re-click "Modify Selection" again and choose "Edit Button Image".
10. Choose a color (I chose RED) and click inside the white area of the
paper image and change that color to RED by clicking each pixel. All this
is doing is making the two images stand out differently so you know which
one is which.
11. Click "OK" on this dialog box, then "Close" on the next one.
You are now in "Macro Record" mode (you should see a small toolbar with a
couple of buttons on it) so be careful of these next few steps!
12. Click the "File" menu, select "Print". Click the "Current Page" option,
then click "OK".
13. Click the small square button to "Stop Recording".
You're done. You now have a button on your toolbar that you can click to
print out the current page of the active document. Holler back if you run
into problems.
--
Bill Foley, Microsoft MVP (PowerPoint)
Microsoft Office Specialist Master Instructor - XP
www.pttinc.com
Check out PPT FAQs at: http://www.rdpslides.com/pptfaq/
Check out Word FAQs at: http://word.mvps.org/FAQs/General/index.htm
"Syed Azhar Ali" <Syed Azhar A...@discussions.microsoft.com> wrote in message
news:B6B6D758-4CA9-4407...@microsoft.com...
Public Sub PrintCurrentPage()
With Dialogs(wdDialogFilePrint)
.Range = wdPrintCurrentPage
.PrintToFile = False
.Execute
End With
End Sub
For installation help, see http://www.gmayor.com/installing_macro.htm
http://word.mvps.org/FAQs/Customization/AsgnCmdOrMacroToToolbar.htm
--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.
"Trudy" <Tr...@discussions.microsoft.com> wrote in message
news:51279B61-24CA-434B...@microsoft.com...