trying to create a macro that prints records

ok, I'm trying to create a macro to print a record in work, then go to next record and then print it... and do this till the last record... what's wrong with my code? Help......

************************************

Sub DoUntil()
Check = True: ActiveDocument.MailMerge.DataSource.LastRecord = 1566
Do While ActiveDocument.MailMerge.DataSource.LastRecord < 1566
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
ActiveDocument.PrintOut
If ActiveDocument.MailMerge.DataSource.LastRecord > 1566 Then
Exit Do
End If
'Loop
Do Until Check = False: ActiveDocument.MailMerge.DataSource.LastRecord = 1567
Exit Do
End Sub