¿Cómo imprimir un label y un textbox multilínea?

Efectivamente eso es así. Tiene que calcular la longitud total del texto y hacer una rutina para escribir tantas líneas como sea necesario.
Además debe utilizar una fuente que ocupe un espacio igual para cada carácter por ejemplo Courrier New.
Suerte !

Hola, buen día y gracias por su respuesta.
Soy completamente novato en esto de visual basic y quisiera saber su pudiera ayudarme con algún ejemplo para entender mejor esa rutina y poder aplicarla a mi código. Ya encontré cómo obtener la longitud de la cadena pero no entiendo muy bien cómo iniciar la rutina.
Gracias por todo.

Podríamos hacer algo así:
Dim Largo as Integer
Dim Linea as String
Dim I as Integer
Dim J as Integer
Dim Y as Integer
Private Sub Imprimir()
J = 80 'caracteres x linea
Largo = Len(Texto1)
I = 1
Y = 2000
While i < Largo
Linea = Mid(Texto1,I,J)
Printer.CurrentX = 1000
Printer.CurrentY = Y
Printer.Print Linea
I = I + J
Y = Y + 240
Wend
End Sub
Este podría ser el ejemplo, me imagino que querrás imprimir con el objeto Printer.
Si tienes dudas vuelves a escribir.
Suerte !

Sr. Experto.
Muchas gracias por su paciencia y por su ayuda
¿Existe alguna función para que no corte las palabras al imprimir?. Entiendo que le estoy indicando que imprima hasta cierto número de caracteres pero quisiera saber si existe alguna manera de que imprima hasta un espacio antes de esa palabra que está cortando.
Gracias

No hay una función que me busque el blanco más a la derecha de una cadena pero podemos buscarlo manualmente.
Dim Largo as Integer
Dim Linea as String
Dim Blo80 as string
Dim I as Integer
Dim J as Integer
Dim K as Integer
dim L as Integer
Dim Y as Integer
Private Sub Imprimir()
J = 80 'caracteres x linea
Largo = Len(Texto1)
I = 1
Y = 2000
While i < Largo
Blo80 = Mid(Texto1,I,J)
For K = 80 to 1 Step -1
if mid(Texto1,K,1) = " " then
L=K
K=1
endif
Next K
Linea = Mid(Texto1,I,L)
Printer.CurrentX = 1000
Printer.CurrentY = Y
Printer.Print Linea
I = I + L
Y = Y + 240
Wend
End Sub
Creo que así te puede funcionar !