There is little concept of 'page' in Word. Pages are made up of various
elements so any attempt to print parts that are not addressed from the print
dialog will be a compromise. The following macro is about as good a
workaround as any.
http://www.gmayor.com/installing_macro.htm
Sub PrintSelected()
Dim sTemplate As String, sChoice As String
Set myTemplate = ActiveDocument.AttachedTemplate
sTemplate = Chr(34) & myTemplate.Path & Application.PathSeparator _
& myTemplate.Name & Chr(34)
sChoice = MsgBox("Use normal.dot to format the text?" & vbCr _
& vbCr & "If No is selected, the original template will be used" _
& vbCr & "This could create problems if there is static" _
& vbCr & "text in the original template.", _
vbYesNo, "Print selected text")
On Error GoTo oops
Selection.copy
If sChoice = vbNo Then
Documents.Add Template:=sTemplate
ElseIf sChoice = vbYes Then
Documents.Add
End If
With Selection
.EndKey Unit:=wdStory
.Paste
End With
Application.PrintOut FileName:=""
ActiveDocument.Close SaveChanges:=False
End
oops:
MsgBox "Select the text you wish to copy first!"
End Sub
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
My web site
www.gmayor.com
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>