Visual Basic - AYUDA IMPRIMIR TEXTBOX MULTILINEA

Hola Amigo/a:
He creado una función para imprimir con el objeto printer una texbox multilinea; el problema que se me presenta es que despues de imprimir la primera linea con su margen izquierdo
correspondiente al pasar a la segunda linea no me respeta el margen de la primera es decir quisiera que la segunda linea que imprime salga impresa con el mismo margen izquierdo que la primera. A continuacion te describo la funcion:
Public Sub imprimeLineas(Texto As Object, Linea As Integer)
´Numero de caracteres = NumC
´Numero de Bloques = NumB
Printer.FontSize = 8
Printer.FontName = "Times New Roman"
Printer.CurrentX = 3.7: Printer.CurrentY = 11.6
NumC = Len(Form1.Text17.Text)
If NumC > Linea Then
NumB = NumC \ Linea
For i = 0 To NumB
Form1.Text17.SelStart = ( Linea * i)
Form1.Text17.SelLength = Linea
Bloque = Form1.Text17.SelText
Printer.Print Bloque
Next i
Else
Printer.FontSize = 8
Printer.FontName = "Time New Roman"
Printer.CurrentX = 3.7: Printer.CurrentY = 11.6 ´x e y estan en cm'
Printer.Print Form1.Text17.Text
End If
End Sub
Aclararacion: Este funcion la llamo a travez de un command botton y a esta ( funcion) le agrego un parametro entero que es linea es decir el numero de caracteres que quiero que me imprima.-

Desde ya muchas gracias.-