Hi Pam,

The following macro should printout every 5th record of the document created
by the merge

Dim i As Integer, printrange As String
printrange = ""
For i = 1 To ActiveDocument.Sections.Count Step 5
   printrange = printrange & ", s" & i
Next
printrange = Mid(printrange, 3)
ActiveDocument.PrintOut Range:=wdPrintFromTo, From:=printrange

Alternatively, if you put 4 Next Record fields at the end of the mailmerge
main document, it would skip the necessary records.

Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested.  Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP