Visual Basic - Imprimir Label como se ve

sub imprimir()

on error resume next' por si da error

Dim I As Integer

Dim y As Integer

Dim L As Integer

Dim b as integer

Dim largo as integer

Dim linea as string

Printer.Orientation = 1

Printer.FontSize = "11"

largo=115' aqui gradualo segun la longitud de la linea mas larga o menos

I = 1

y = 400

While I < Len(Label1.Caption)' bucle mientras haya texto

linea = Mid(Label1.Caption, I, largo)

For b = largo To 1 Step -1 'busca el espacio en blanco mas a la derecha para no cortar una palabra

If Mid(linea, b, 1) = " " Then

L = b

Exit For 'sale del bucle cuando lo ha encontrado

End If

Next

linea = Mid(Label1.Caption, I, L)

Printer.CurrentX = 250

Printer.CurrentY = y

Printer.Print linea

I = I + L

y = y + 240

Wend

Printer.EndDoc

End sub