[SP]

I have searched and haven't found an answer for this:

I have a Word document, with the first page being an index, being followed
by 20 checklists (ususally one or two pages long). Instead of creating 20
files and password protecting each, we placed them all in one document, with
the index having hyperlinks to each checklist (by bookmark). What I would
like to do is add a command button to each checklist's header so that when
the user clicks to access a specific checklist, they can press the command
button to print only that specific checklist. I know you can go to
file/print/and select which pages you want to print, but it would be easier
and quicker for us to have a simple button to do this. Besides, we get some
users that click the toolbar print button and end up printing all 20
checklists.
--
Sue

[Bear[_2_]]

Sue:

I have two suggestions, both require a little knowledge of macros.

1. Record a macro of printing the current page. Save it in the template used
for the document. You can edit out most of the parameters and use just:

Sub x()
'
' x Macro
' Macro recorded 5/1/2007 by David Chinell
'
Application.PrintOut _
Range:=wdPrintCurrentPage, _
Item:=wdPrintDocumentContent, _
Copies:=1

End Sub

Attach this to a custom button (storing the customization in the template,
not the document). Alternately, create a MacroButton field that calls the
macro.

2. Rather than use the current page, set each form as a separate section,
and print that section. I think the section number may act more predictibly,
and will allow multiple-page forms. Your code would look like:

Sub x()
'
' x Macro
' Macro recorded 5/1/2007 by David Chinell
'

Dim strSection As String

strSection = Format(Selection.Information(wdActiveEndSectionNum ber))
strSection = "s" & strSection

Application.PrintOut _
Range:=wdPrintRangeOfPages, _
Pages:=strSection, _
Item:=wdPrintDocumentContent, _
Copies:=1

End Sub

Bear
--
Windows XP, Word 2000

[SP]

Thank you so much. Between your information and information I found on how
to print the checklist without the button showing on the printed form, I was
able to code this perfectly!

Thanks again!!!!!!!!!!!
Sue


"Bear" wrote:

Sue:

I have two suggestions, both require a little knowledge of macros.

1. Record a macro of printing the current page. Save it in the template used
for the document. You can edit out most of the parameters and use just:

Sub x()
'
' x Macro
' Macro recorded 5/1/2007 by David Chinell
'
Application.PrintOut _
Range:=wdPrintCurrentPage, _
Item:=wdPrintDocumentContent, _
Copies:=1

End Sub

Attach this to a custom button (storing the customization in the template,
not the document). Alternately, create a MacroButton field that calls the
macro.

2. Rather than use the current page, set each form as a separate section,
and print that section. I think the section number may act more predictibly,
and will allow multiple-page forms. Your code would look like:

Sub x()
'
' x Macro
' Macro recorded 5/1/2007 by David Chinell
'

Dim strSection As String

strSection = Format(Selection.Information(wdActiveEndSectionNum ber))
strSection = "s" & strSection

Application.PrintOut _
Range:=wdPrintRangeOfPages, _
Pages:=strSection, _
Item:=wdPrintDocumentContent, _
Copies:=1

End Sub

Bear
--
Windows XP, Word 2000

[Bear[_2_]]

Sue:

You're welcome. I'd love to hear how you arranged for the button not to
print on the form....

Bear

--
Windows XP, Word 2000

[Suzanne S. Barnhill]

See http://word.mvps.org/faqs/tblsfldsfm...rintButton.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.

"Bear" (nospam) wrote in message
...
Sue:

You're welcome. I'd love to hear how you arranged for the button not to
print on the form....

Bear

--
Windows XP, Word 2000