.DOC print from command button

[icecurtain]

Private Sub CommandButton1_Click()
For r = 3 To Sheet4.Range("G65536").End(xlUp).Row
If Sheet4.Cells(r, 9).Value < 0 Then
Sheet4.Range("B8").Value = Sheet4.Cells(r, 7).Value
Sheet4.PrintOut
End If
Next r
End Sub

I have but how can I change this script to produce a .DOC instead of XPS or MDI.

When pressing a command button this routine changes the value in B8 which is using a Vlookup for data.

 

[icecurtain]

My data for each printout is in cells A1 to D39