set default to print first page only

[Guest]

Client creates many different 2 page documents but they only need to print
the first page. Is there any way to set the default so it will only print the
first page. Apparently going into the print menu and changing the option to
print only page 1 is too much work . A macro might work but there are
several different users on different PCs involved.

Any suggestions?

 

[Suzanne S. Barnhill]

You can certainly have a macro to print just the first page. Alternatively,
you can have a macro to print the current page (I couldn't do without that
one), which would be the first page when the document is first opened.
Either macro can be assigned to a keyboard shortcut or toolbar button. See
http://word.mvps.org/FAQs/MacrosVBA/DistributeMacros.htm

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA

Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

 

[Pop`]

Client creates many different 2 page documents but they only need to
print the first page. Is there any way to set the default so it will
only print the first page. Apparently going into the print menu and
changing the option to print only page 1 is too much work . A
macro might work but there are several different users on different
PCs involved.

Any suggestions?

Have them Customize to put "Print Current Page". One click and they're
done. Or use a script to do the same. The first page is always the current
page when a document is opened.

 

[Guest]

Could you explain what you mean by "Customize to put "Print Current Page".
"? Are you referring to first creating a macro and then adding a toolbar
button or something else?

 

[Suzanne S. Barnhill]

Yes. The following macro will print the current page:

Sub PrintCurrentPage()
'
' PrintCurrentPage Macro
' Macro recorded November 30, 2002 by Suzanne S. Barnhill
'
Application.PrintOut FileName:="", Range:=wdPrintCurrentPage, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="",
PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True,
PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0,
_
PrintZoomPaperHeight:=0
End Sub

It's a recorded macro, so it's full of junk, and I'm sure one of our VBA
experts can give you a much more elegant one, but it works fine, which
should be an encouragement to you: you can record the exact same macro (or a
macro to print page 1, for that matter) the same way I did and get something
that works fine! See http://word.mvps.org/FAQs/MacrosVBA/UsingRecorder.htm

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA

Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

 

[Graham Mayor]

The following macros will print the current page and the first page
respectively to the active printer.

Sub PrintCurrentPage()
Application.PrintOut Range:=wdPrintCurrentPage
End Sub

Sub PrintPage1()
Application.PrintOut Range:=wdPrintRangeOfPages, Pages:="1"
End Sub

See http://www.gmayor.com/installing_macro.htm

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[Suzanne S. Barnhill]

Thanks, Graham.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA

Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

 

[Guest]

Thank you!
---
harriettbird

The following macros will print the current page and the first page
respectively to the active printer.

Sub PrintCurrentPage()
Application.PrintOut Range:=wdPrintCurrentPage
End Sub

Sub PrintPage1()
Application.PrintOut Range:=wdPrintRangeOfPages, Pages:="1"
End Sub

See http://www.gmayor.com/installing_macro.htm

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>