Imprimir

Para imprimir todas las lineas de un textbox primero tienes que separar cada linea dentro de una matriz, luego imprimir cada linea por separado, te doy un ejemplo con tus datos:
Dim CantLineas As Single
Dim Lineas(1000) As String
CantLineas = 1
For asd = 1 To Len(Text1.Text)
If Mid(Text1.Text, asd, 1) = Chr(13) Then
asd = asd + 1
CantLineas = CantLineas + 1
Else
Lineas(CantLineas) = Lineas(CantLineas) & Mid(Text1.Text, asd, 1)
End If
Next
Printer.FontSize=12
For asd = 1 To CantLineas
Printer.CurrentY = 2500
Printer.Print Lineas(asd)
Next
Printer. EndDoc
Fíjate que cada linea que tenga el textbox, quedara separada en la matriz Lineas(1000), le puse 1000 lineas, no creo que tengas más, vos cambialo por el numero máximo que creas que puede haber de lineas en algún momento.
Luego imprimís todas las lineas por searado, de esa forma podes poner todas las lineas en la posición que quieras de objeto Printer.
Cualquier duda estoy a tu disposición.

Tienes que revisar bien la ayuda del objeto printer, tiene una propiedad que se llama line y con ella puedes hacer lo que quieres.
Y si no también puedes checar las siguientes páginas:
http://www.jrubi.com
http://www.lawebdelprogramador.com