Private Sub StartPrint()
    With Word.ActiveDocument.MailMerge
        .Destination = wdSendToPrinter
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = 0 
            .LastRecord = 100
        End With
        .Execute Pause:=False
    End With
End Sub