Sub FilePrint()
Dim lStart As Long, lEnd As Long, i As Long
On Error GoTo ErrHandler
With ActiveDocument
  lStart = CInt(InputBox("What is the first Report to print?", _
    "Print Report From", .CustomDocumentProperties("Counter").Value + 1))
  lEnd = CInt(InputBox("What is the last Report to print?", _
    "Print Report To", lStart))
  If lStart = 0 Or lStart > lEnd Then GoTo ErrHandler
  For i = lStart To lEnd
    .CustomDocumentProperties("Counter").Value = i
    .Fields.Update
    If i = lStart Then
      With Application.Dialogs(wdDialogFilePrint)
        If .Show = 0 Then GoTo ErrHandler
      End With
    End If
    If i > lStart Then ActiveDocument.PrintOut
  Next
End With
ErrHandler:
End Sub