esse é o codigo q eu tenho so q ta faltano alguma coisa q nao entendi , ele nao desce para a alinha de baixo

 

Private Sub PrintMultiline(txt As TextBox)
Dim vtxt As Variant, i As Long

vtxt = Split(txt, vbCrLf)

For i = 0 To UBound(vtxt)

Printer.Print vtxt(i)

Next i

Printer.EndDoc

End Sub

Private Sub Command1_Click()
PrintMultiline Text1
End Sub