template troubles

[Cam Evenson]

I have a user template file that is used to make instructution sheets for
the completion of work tasks. The template has a button on it that ads the
user in printing out other attachments that are always printed when
instruction sheets are printed. For the most part this template has worked
great and has not resulted in any complications until now. Some of the
instructions that have been written have overflowen to 2 or more pages and
the current button prints the current page with the attached sheets but
neglects the remaining pages. So now the user has to go to Page 2 and so on
and press the button again on those pages to print the pages out which
results in the attached pages being printed once again.

Is there a way to code this button first of all so it only appears on page
one of the document, and that it can understand that if there is more then
one page within this document that those pages will be printed also along
with only one copy of the attached files?

I have attached the code found under this button.

Private Sub CommandButton1_Click()
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

Application.PrintOut FileName:="", _
Range:=wdPrintRangeOfPages, _
Item:=wdPrintDocumentContent, _
Copies:=1, _
Pages:="2-3", _
PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, _
Collate:=True, _
Background:=True, _
PrintToFile:=False, _
PrintZoomColumn:=0, _
PrintZoomRow:=0, _
PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub

[Doug Robbins - Word MVP]

Your (almost) identical question has been answered in the userforms
newsgroup. Please do not post the same question separately to multiple
newsgroups.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"Cam Evenson" <cam.e...@weyerhaeuser.com> wrote in message
news:uVpFzkxW...@TK2MSFTNGP05.phx.gbl...