This example merges the main document with data records 1 through 3 and sends the merge documents to the printer.
With ActiveDocument.MailMerge
.DataSource.FirstRecord = 1
.DataSource.LastRecord = 3
.Destination = wdSendToPrinter
.Execute
End With