Thanks very much for the suggestion.  It looks like I will be able to print
the headers and footers, which means I will not need to move them to the
body of the document.  That will save me a lot of time.
The code almost worked just as you presented it, except that if the first
bookmark is at the beginning of the document I need to allow for the
possibility that x1 = 0.  I could probably avoid that problem by putting the
bookmark somewhere other than the very beginning of the document, but I
think it's better to allow for the possibility.  In Access I would have used
the Nz function to allow for the 0, but I used an If statement instead.
I noticed that I need to put the second bookmark somewhere other than the
end of the page, or else I get more pages that I wanted.  As I understand,
the code is looking for the page number where the first bookmark is located,
and the page number where the second bookmark is located.  The code I ended
up with is:

 Dim x1 As Long ' start character of bookmark
 Dim x2 As Long ' end character of bookmark
 Dim p1 As Long ' start page
 Dim p2 As Long ' end page

 Dim rTmp As Range
 Set rTmp = ActiveDocument.Range
 If rTmp.Bookmarks("DocStart").Range.Start = 0 Then
   x1 = 1
   Else
     x1 = rTmp.Bookmarks("DocStart").Range.Start
 End If
 x2 = rTmp.Bookmarks("DocEnd").Range.End
 p1 = rTmp.Characters(x1).Information(wdActiveEndPageNumber)
 p2 = rTmp.Characters(x2).Information(wdActiveEndPageNumber)

 ActiveDocument.PrintOut _
     Range:=wdPrintFromTo, From:=CStr(p1), To:=CStr(p2)

 Set rTmp = Nothing

I added the last line because it was in the previous version of the code.
I'm not sure if it's needed.

I tried incorporating the watermark code, but could not get it to work
properly.  The watermark ended up in the top left corner of the page, and
was behind everything else (hidden behind a picture, for instance).  Again,
that code was something like this:

 ActiveDocument.Sections(1).Range.Select
 ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
 Selection.HeaderFooter.Shapes.AddTextEffect(msoTextEffect1, _
   "XYZ Company", "Arial Black", 1, False, False, 0, 0).Select
 Selection.ShapeRange.Name = "msoTextEffect1"
 Selection.ShapeRange.TextEffect.NormalizedHeight = False
 ' More Selection.ShapeRange items
 ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

As I said, I used the macro recorder, so I expect some things in this code
are incorrect, assuming that it is possible at all to add a watermark as I
hope to do.  I can use a printer that is able to print a watermark, so it is
not a big problem if I can't add the watermark code, but it would help if
there is a way to add it.

Whatever happens with the watermark, thanks again for the code that lets me
print the header and footer.

Thanks for your help, but it doesn't work.  Here is the full code (minus
error handling).  The watermark part of the code was generated by the macro
recorder, and I inserted the code into the other code for printing the
range.  I expect that is part of the problem, but this is not Access, so I
am not sure what to do with the VBA code, and there is little documentation
in Help.  I changed ShapeRange to ShapeRange(1), which was what you showed,
but the problems are the same either way.

Public Sub PrintIt()

 Dim x1 As Long ' start character of bookmark
 Dim x2 As Long ' end character of bookmark
 Dim p1 As Long ' start page
 Dim p2 As Long ' end page

 Dim rTmp As Range
 Set rTmp = ActiveDocument.Range
 If rTmp.Bookmarks("DocStart").Range.Start = 0 Then
   x1 = 1
   Else
     x1 = rTmp.Bookmarks("DocStart").Range.Start
 End If
 x2 = rTmp.Bookmarks("DocEnd").Range.End
 p1 = rTmp.Characters(x1).Information(wdActiveEndPageNumber)
 p2 = rTmp.Characters(x2).Information(wdActiveEndPageNumber)

 ActiveDocument.Sections(1).Range.Select
 ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
 Selection.HeaderFooter.Shapes.AddTextEffect(msoTextEffect1, _
   "XYZ Company", "Arial Black", 1, False, False, 0, 0).Select
 Selection.ShapeRange(1).Name = "msoTextEffect1"
 Selection.ShapeRange(1).TextEffect.NormalizedHeight = False
 Selection.ShapeRange(1).Line.Visible = False
 Selection.ShapeRange(1).Fill.Visible = True
 Selection.ShapeRange(1).Fill.Solid
 Selection.ShapeRange(1).Fill.ForeColor.RGB = RGB(255, 0, 0)
 Selection.ShapeRange(1).Fill.Transparency = 0.5
 Selection.ShapeRange(1).Rotation = 315
 Selection.ShapeRange(1).LockAspectRatio = True
 Selection.ShapeRange(1).Height = InchesToPoints(0.95)
 Selection.ShapeRange(1).Width = InchesToPoints(8.21)
 Selection.ShapeRange(1).WrapFormat.AllowOverlap = True
 Selection.ShapeRange(1).WrapFormat.Side = wdWrapNone
 Selection.ShapeRange(1).WrapFormat.Type = 3
 Selection.ShapeRange(1).RelativeHorizontalPosition =
wdRelativeHorizontalPositionPage
 Selection.ShapeRange(1).RelativeVerticalPosition =
wdRelativeVerticalPositionPage
 Selection.ShapeRange(1).Left = wdShapeCenter
 Selection.ShapeRange(1).Top = wdShapeCenter
 ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

 ActiveDocument.PrintOut _
     Range:=wdPrintFromTo, From:=CStr(p1), To:=CStr(p2)

 Set rTmp = Nothing

End Sub

I am getting runtime error 91 "Object Variable or With Block variable not
set" on the line:
 Selection.HeaderFooter.Shapes.AddTextEffect(msoTextEffect1, _
   "XYZ Company", "Arial Black", 1, False, False, 0, 0).Select

Creating the watermark in this way may be something Word cannot do reliably.
If that is the case, I can set up a printer to use a watermark.  Being able
to print the header and footer for a range of pages was the main thing I
wanted to do.  I can create a watermark without using Word, if necessary.
If there is a way to generate it through code, that would be the best, but
it is not essential.